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THE MAGAZINE FOR TANDY COLOR COMPUTER® USERS. 



All-in-One Software 

Will Integrated Programs Solve Your Problems? 



L PURGE 

Delete Multiple 

Disk Files Simultaneously 

L INFLATION 

Predict Your Future 
Financial Needs 

L STRATEGY 

Can You Ci/f It 

As a Star Merchant? 



UBLICATION 



1986 
>N $3.95 



PLUS: Product Reviews, 
Commentary, and 
Answers to Your 
Questions 





HOLIDAY GIFT IDEAS FOR 

Compact Computer Furniture 




Good-Looking Simulated Hickory Finish 
Keeps Computer System Organized 



4Q95 

■ W Each 



Our affordable Computer Stand 
(26-1354) and Compact Printer Stand 
(26-1355) are not only attractive addi- 
tions to your home, but space savers 
as well. The Computer Stand includes 
a raised platform for a monitor or 
printer. The Printer Stand includes a 
bottom-feed paper slot and paper stor- 
age shelf. 



Computer, printer, monitor and accessories not included 




Computer Cassette Recorder 



^'*'«*»-'u>^ 



Built-in Automatic 
Level Control 

Recorder Starts and 
Stops Automatically 



4995 



1 1 



The CCR-82 recorder 
(26-1209) is ideal for 
loading and saving pro- 
grams and data. It fea- 
tures cue/review and 
tape counter. Requires 
four "AA" batteries. 



Power Line Filter 





49" 



The Power Line Filter (26-1244) 
filters line noise from nearby ap- 
pliances and reduces interac- 
tion between peripherals. It also 
protects equipment from damag- 
ing transient voltage spikes. 



Protect Your Diskettes 




1 



'fit 



495 



5 1 /4" Wallet File. Holds 10 diskettes. 
26-1366, $7.95. 

5 1 /4 B Library Box. Stores like a book when 
closed. Holds 10 disks. 26-1452, $4.95. 
5 1 A»" Travel Tote (not shown). Holds 5 disks. 
26-1348, $2.95. 



Low-Priced Sound/Speech 
Joysticks Cartridge 



1995^^7995 




Our lowest-priced joy- 
sticks (26-3008) make 
games even more 
exciting. Fast 360° 
movement! 



Just plug the Cartridge 
(26-3144) into a Color 
Computer's Program 
Pak™ port for sound and 
speech. 



COLOR COMPUTER OWNERS 

Save $ 20 on a Thermal -Matrix Printer 




Ideal for the 
Color Computer 2 

Super-Quiet Operation 



Reg. 
99.95 



79 95 



The TP-10 (26-1261) is a perfect match for 
your Color Computer! It prints both graphics 
and alphanumeric^ at 32 characters per 
line, 30 characters per second on 4 1 /s" wide 
thermal paper. Features include elongation 
mode for expanded print and a special re- 
peat function to make graphics program- 
ming easier. Measures 3 x 8 x 5" Color 
Computer-compatible serial interface only. 



Low-Cost Dot Matrix Printer 




■ Bit Image and 
Graphics Mode 

■ Prints 80 Characters Per Second 



19995 



A Radio Shack price breakthrough! 
The DMP 105 (26-1276) prints crisp 
8 x 9 dot matrix characters on an 8" 
line. It's ideal for data processing 
and general-purpose use. Bi- 
directional—prints 80 or 132 char- 
acters on an 8" line. 



Triple-Mode Printer 




■ Word Processing 
and Dot-Addressable Graphics 

■ Cursive and Microfont Styles 



349 s5 



The DMP 130 (26-1280) 
makes correspondence- 
quality printing affordable. 
It prints in four character 
styles: standard or italic 
cursive in draft or corre- 
spondence modes. 



Radio/hack 

The Technology Store M 

A DIVISION OF TANDY CORPORATION 

TP-10 Printer sale begins 10/22, ends 12/24/85. Prices apply at Radio Shack Computer Centers and participating stores and dealers. 



For Your TRS-80 Color Computer 

Apple • Atari • Commodore • TRS80I, III, 4 & Color • IBM PC Jr. 



New Educational Programs for 
Grades K-12 and Adult Self-Studies 

32 Programs Now Available on Disk 
for TRS Color Computers 
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Interactive Tutorial Programs for Home or Classroom Use 

Over 1000 programs for your selection with 32 now available on disk for the Color Computer 



"We're Your Educational 
Software Source" 

Subject No. of Programs 

Reading Development 256 (4 on disk) 
Reading Comprehension 48 (4 on disk) 

Mathematics 128 

Algebra 16 (16 on disk) 

History 32 (4 on disk) 

Spelling 16 

Government 16 

Physics 16 (4 on disk) 

16 Programs in each 
of the following: 

Children's Tales - Carpentry - Electronics 
Health Services - Office Skills Statistics 
First Aid/Safety - Economics - Business 
Accounting - Psychology MUCH MORE 1 

Dealer Inquiries Welcome 



Apple II. TRS 80 I, III, & 4 and Com 
modore 64 computers require respective 
conversion kits (plug-in board and stereo 
cassette player), $99 00 Atari 
400/600/800/1200 computers squire the 
Atari cassette recorder and the Dorsett 
400 1 Educational Master Cartridge 
$9.95 For the IBM PC Jr. a cassette 
adapter cable and a good cassette 
recorder are required. A Radio Shack 
CCR-81 or CCR 82 is recommended 

CASSETTES: $59.90 for an album con- 
taining a 16-program course (8 cassettes 
with 2 programs each); $8.80 for a 
2-program cassette 

DISKS: $14.95 for a one-program disk; 
$28.95 for two disks; $48.95 for *our 
disks All disks come in a vinyl album 



Send for our catalog of over 1000 Dorsett 
educational programs for Atari. TRS 80 Apple 
IBM PC Jr., Commodore, etc 



Dorsett Educational Software features: 

• Interactive Learning 

• User Friendly 

• Multiple Choice and Typed 

• Program Advance with Correct Response 

• Full time audio narration (Cassette 
Programs Only) 

• Self Paced Study 

• High Resolution Graphics 

• Easy Reading Text 

For more information, or to order call: 

TOLL FREE 1-800-654-3871 
IN OKLAHOMA CALL (405) 288-2301 



[i) 



DORSETT 

Educational Systems, Inc. 

Box 1226, Norman, OK 73070 




ARTICLES 



31 The Great CoCo Purge Utility, Mark o. Goodwin 

Delete unwanted disk files in seconds. 



33 Inside Integrated Software, Scott l Norman 

Multi-purpose software is all the rage. Is it for you? 



46 Introduction to Home Finance, James d. Ray 

Inflation won't catch you by surprise 
if you use this program. 

50 Some Added Mastery, wunam s. Bonneii 

Who says you can't make a good database program better? 



36 Star Merchant, Wilfred Barber 

Win fame and fortune as an intergalactic trader. 



64 Disk Wizardry, Michael Johnson 

Track directory entries, granule allocation, and more. 



DEPARTMENTS 



6 Instant CoCo Directory 
6 Back Issue Information 

8 Letters to the Editor 

9 6809 On Line, Bobby Ballard 

Curl up with a good telecomputing book. 

12 Mindbusters, Richard Ramella 

Do-It- Yourself Brain Teasers. 

14 Doctor ASCII, Richard E. Esposito and Raplh E. Ramhoff 

Your technical questions answered. 



16 The Computer Room, Scott L Norman 

What's Cookin'? 

20 Reviews, edited by J. Scot Finnie 

Bugs II, Simon, Barbarossa, and more. 

72 Product News, J. Scot Finnie 

Infocom, J & R Electronics, Spectral Associates, and more. 

74 Assembly 101, James and Victor Perotti 

Learn how to drive your joystick. 

76 Reader's Forum 

80 The Corner Office, Jeff Deiray 



HOT CoCo (ISSN 0740-3186) is published monthly by CW Communications, 80 Pine St., Peterborough, NH and additional mailing offices. Subscription rates in U.S. are $24.97 for one year, $38 for two years, and 
$53 for three years. In Canada and Mexico, $27.97-one year only, U.S. funds. Second class postage paid at Peterborough, NH and additional mailing offices. Canadian 2nd Class mail reg. #9564. Nationally 
distributed by International Circulation Distributors. Foreign subscriptions (surface mail), $44.97-one year only, U.S. funds drawn on a U.S. bank. Foreign subscriptions (air mail), please inquire. In South Africa 
contact HOT CoCo, P.O. Box 782815, Sandton, South Africa 2146. All subscription correspondence should be addressed to HOT CoCo, Subscription Department, P.O. Box 975, Farmingdale, NY 11737. Please 
include your address label with any correspondence. Postmaster: Send address changes to HOT CoCo, Subscription Services, P.O. Box 975, Farmingdale, NY 11737. Send Canadian change of address to HOT 
CoCo, P.O. Box 1051, Fort Erie, Ontario Canada, L2A5N8. Return postage guaranteed. Entire contents copyright 1985 by CW Communications/Peterborough, Inc.. For questions concerning your subscription and 
to place subscription orders, please call us toll free at 1-800-258-5473 between 8 a.m. and 5 p.m. EST or write to HOT CoCo, Subscription Department, P.O. Box 975, Farmingdale, NY 11737. 
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CinSOFT 

THE CENTRAL SOURCE FOR COCO SUPPORT 



presents . . . 
and Fast Delivery, too . . . 



Second Day Air 

NO EXTRA CHARGE ON ORDERS OVER $50 • NOW THRU XMAS 
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The Complete . . . 0 Tf 

includes . . . 
w/\ Deluxe Joystick 
KJ and Y-c*bl* ! ! 

C0C0M8H II $ 79.95 

with v-cable 99.95 

with Joystick 99.95 
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LATEST 
VERSION! 

Features . . . 
•14 fonts 
•Shrink, Stretch 
Rotate 
•Multiple drives 

Upgrade available 
$20 




PRINTER SPECIAL! 

Star SG-10 ^/VVf .... PRINTER 

Metric Industries Model 104 Xtfe* T INTERFACE 

Handsome brown vinyl ^Pv\Ah\ . DUST COVER 

Spare replacement RIBBON 

Starter pak of PAPER 



O-IQ 00 

° 1 COMPLETE 

SAVE 31.oo 



"Authorized Star Micronics Service Center" 




1U** DELUXE JOYSTICK B m 



EXCELLENT FOR COLOR COMPUTER 
USE IT FOR GRAPHICS. GAMES. ETC. 
CoCo owners will appreciate this high quality, 
durable joystick. Open gimbal design ... self- 
centering or free-floating operation. Mechanical 
trims on both axes ... eight foot cable ... firing 
button has lifetime 5,000,000 presses. A two- 
button version of the Deluxe Joystick is available 
for the Tandy 1000. 




$27.50 each 
$49.95/ pair 



CHOOSE FROM OUR LARGE 
SELECTION OF COCO PRODUCTS 

B5 ... Colorware ... Deft ... Derringer ... Dynacalc ... Elite .. 

HJL ... J & M ... Mark Data ... Metric Industries ... 
Michtron...Microcom...Microworks...Tom Mix...PBJ...PXE.. 
Speech Systems ... Sugar ... TCE ... VIP ... and more! 

Shipped immediately from stock! 



V 



• Call* 

513-396 SOFT 



• Shop by Modem • 

513-396 SHOP 



• Write • 

2235 Losantiville, Cincinnati, OH 45237 

SHIPPING will be charged at our ACTUAL COST 



SHIPPING « 

Ohio residents add 5 5° 



Sales Ta« COO add 2 00 



Tell them "I saw it In HOT CoCo/ 



January 1986 HOT CoCo 



Instant CoCo Directory 



Instant CoCo is a cassette tape containing the major programs from this issue of HOT 
CoCo. Its purppse is to save you the time and effort of typing long program listings into 
your Color Computer. You simply load the programs from the Instant CoCo tape using 
your cassette recorder. The instructions for operating each program are found in the 
corresponding HOT CoCo article. Both Basic and Assembly-language programs are 
included on the tape. 

The Instant CoCo symbol appears in HOT CoCo's table of contents and on the pro- 
gram listing for each article with a listing used on the Instant CoCo tape. As an added 
extra, each tape also contains a never-before-published Bonus Program, complete with 
instructions. 

The directory below lists all programs included on this month's Instant CoCo cas- 
sette. Shown first are the name of the article with a descriptive blurb and its author, 
followed by the page number in this issue where the article appears. Next comes the 
file name of the program on cassette. Finally, there is a brief description of the Color 
Computer system needed to run the program. 

This month's Instant CoCo cassette is available for just $11.47, including postage 
and handling, from Instant CoCo, 80 Pine St., Peterborough, NH 03458. See our 
ad on p. 64 for more details. 



Instant CoCo Directory 
January 1986 



Side A 



Article Name/ Author/Description 

Copyright Statement 

Mindbusters/Ramella 

Invent your own puzzle. 
The Great CoCo Purge Utility/Goodwin 

Delete multiple disk files easily 
Star Merchant/Barber 

Travel to distant planets while 

amassing your fortune. 
Introduction to Home Finance/Ray 

Keep tabs on inflation's effect 

on your income. 



Page # 


File Name 


System 




TITLE 


16KCB 


12 


CONTROL 


16KECB 




DAZZLE 


16KCB 


31 


PURGE 


16KDECB 


36 


MERCHANT 


32KECB 



46 



SideB 

Some Added Mastery/Bonnell 50 
This database program keeps getting 
better and better. 

Disk Wizardry/Johnson 64 
Get the most from your disk drive 
with this utility collection. 

Reader's Forum/Clark 76 
Use your printer to address envelopes. 



INFLATE 



MASTER 10 
MASTER 11 

UTILITY 

SNOOPER 

SPECS 

RESTORE 

ADDRESS 



16KECB 



32KDECB 

Disk ROM 1.0 

32KDECB 

Disk ROM 1.1 

16KDECB 

16KDECB 

16KDECB 

16KDECB 

16KCB 



* Bonus Program* * * 



Guitar Chord Chorus/Maiani 
Learn guitar chords with the 
help of your CoCo. 



GUITAR 



32KECB 



CB = Color Basic, DECB = Disk Extended Color Basic, ECB = Extended Color Basic, 
[m)~ machine-language program (use CLOADM) 

6 HOT CoCo January 1986 



Back Issues 



Yes, back issues of HOT CoCo are available for all 
months. This list shows the features in each issue: 

October 1983— Animation techniques; ROM dis- 
assembly, part I. 

November 1983— Nuclear submarine simulation; 
ROM-pack primer; banner printer. 

December 1983— World capitals quiz program; 
talking spelling tutor; vocabulary-building program. 
March 1984— How a disk stores information; cre- 
ate your own wordsearch puzzles; dental/medical 
bill balancer. 

June 1984— Horse-racing and stock-market simu- 
lators. 

July 1984— Do-it-yourself lowercase mod; variable 
cross-referencer; the game, Python. 

August 1984-Basic OS-9 review; database man- 
ager program; graphics tutorials; hurricane tracker. 

September 1984— Educational software buyer's 
guide; typing-teacher program; the CoCo as a mar- 
keting aid. 

November 1984— Personal money manager pro- 
gram; disk-file protection utility. 

December 1984— Disk-drive timer; disk drive 
maintenance tips; full-featured text-editing pro- 
gram. 

January 1985— Spreadsheet program; stock- 
charting program; make fancy graphics with your 
printer. 

February 1985— Drawing program; user's group 
list; Space Hawks game. 

March 1985— Universal screen-dump program; 
POKE list; utilities. 

April 1985— Telewriter-64 mods; modem compar- 
ison; satellite-tracking program. 

May 1985— Sound digitization; blackjack program; 
disk-based smart terminal programs compared. 

June 1985— How to install 64K in any CoCo; pie- 
chart program; custom fonts for Gemini printers. 

August 1985— Graphics utilities; auto-line-number- 
ing program; how to connect the CoCo to a Model 100. 



You'll also find in each issue our regular features, 
reviews of popular software and hardware, and dozens 
of useful programs that are yours for the typing in. 

Each back issue costs $3.50 plus $1 shipping and 
handling. On orders of 10 or more back issues, there 
is a flat $10 shipping and handling fee. Quantities 
are limited, and we cannot guarantee that all back 
issues are available. Send your orders to HOT CoCo, 
Back Issue Orders, 80 Pine St., Peterborough, 
| NH 03458. ■ 



Tell them "I saw It in HOT CoCo.' 



Telewriter-64 

the Color Computer Word Processor 



■ 3 display formats: 51/64/85 
columns x 24 lines 

■ True lower case characters 

■ User-friendly full -screen 
editor 

■ Right justification 

■ Easy hyphenation 

■ Drives any printer 

■ Embedded format and 
control codes 

■ Runs in 16K, 32K, or 64K 

■ Menu-driven disk and 
cassette I/O 

■ No hardware modifications 
required 



THE ORIGINAL 



Simply stated, Telewriter is the most powerful 
word processor you can buy for the TRS-80 
Color Computer. The original Telewriter has 
received rave reviews in every major Color 
Computer and TRS-80 magazine, as well as 
enthusiastic praise from thousands of satisfied 
owners. And rightly so. 

The standard Color Computer display of 32 
characters by 16 lines without lower case is 
simply inadequate for serious word processing. 
The checkerboard letters and tiny lines give you 
no feel for how your writing looks or reads. 
Telewriter gives the Color Computer a 51 
column by 24 line screen display with true 
lower case characters. So a Telewriter screen 
looks like a printed page, with a good chunk of 
text on screen at one time. In fact, more on 
screen text than you'd get with Apple II, Atari, 
Ti, Vic or TRS-80 Model III. 

On top of that, the sophisticated Telewriter 
full-screen editor is so simple to use, it makes 
writing fun. With single-letter mnemonic 
commands, and menu-driven I/O and 
formatting, Telewriter surpasses all others for 
user friendliness and pure power. 

Telewriter's chain printing feature means that 
the size of your text is never limited by the 
amount of memory you have, and Telewriter's 
advanced cassette handler gives you a powerful 
word processor without the major additional 
cost of a disk. 




...one of the best programs for the Color 
Computer I have seen... 

— Color Computer News, Jan. 1982 



TELEWRITER-64 



But now we've added more power to 
Telewriter. Not just bells and whistles, but 
major features that give you total control over 
your writing. We call this new supercharged 
version Telewriter-64. For two reasons. 



64K COMPATIBLE 



Telewriter-64 runs fully in any Color Computer 
— 16K, 32K, or 64K, with or without Extended 
Basic, with disk or cassette or both. It 
automatically configures itself to take optimum 
advantage of all available memory. That means 
that when you upgrade your memory, the 
Telewriter-64 text buffer grows accordingly. In 
a 64K cassette based system, for example, you 
get about 40K of memory to store text. So you 
don't need disk or FLEX to put all your 64K 
to work immediately. 



64 COLUMNS (AND 85!) 



Besides the original 51 column screen, 
Telewriter-64 now gives you 2 additional high- 
density displays: 64 x 24 and 85 x 24!! Both 
high density modes provide all the standard 
Telewriter editing capabilities, and you can 
switch instantly to any of the 3 formats with a 
single control key command. 
The 5 1 x 24 display is clear and crisp on the 
screen. The two high density modes are more 
crowded and less easily readable, but they are 
perfect for showing you the exact layout of 
your printed page, all on the screen at one 
time. Compare this with cumbersome 
"windows" that show you only fragments at a 
time and don't even allow editing. 



RIGHT JUSTIFICATION & 
HYPHENATION 



One outstanding advantage of the full-width 
screen display is that you can now set the 
screen width to match the width of your 
printed page, so that "what you see is what 
you get." This makes exact alignment of 
columns possible and it makes hyphenation 
simple. 

Since short lines are the reason for the large 
spaces often found in standard right justified 
text, and since hyphenation is the most 
effective way to eliminate short lines, 
Telewriter-64 can now promise you some of the 
best looking right justification you can get on 
the Color Computer. 



FEATURES & SPECIFICATIONS: 



Printing and formatting: Drives any printer 
(LPVII/VIII, DMP-100/200, Epson, Okidata, 
Centronics, NEC, C. Itoh, Smith-Corona, 
Terminet, etc). 

Embedded control codes give full dynamic access to 
intelligent printer features like: underlining, 
subscript, superscript, variable font and type size, dot- 
graphics, etc. 

Dynamic (embedded) format controls for: top, 
bottom, and left margins; line length, lines per page, 
line spacing, new page, change page numbering, 
conditional new page, enable/disable justification. 
Menu-driven control of these parameters, as well as: 
pause at page bottom, page numbering, baud rate (so 
you can run your printer at top speed), and Epson 
font. "Typewriter" feature sends typed lines directly 
to your printer, and Direct mode sends control codes 
right from the keyboard. Special Epson driver 
simplifies use with MX-80. 

Supports single and multi-line headers and automatic 
cenering. Print or save all or any section of the text 
buffer. Chain print any number of files from cassette 
or disk. 



File and I/O Features: ASCII format files — 
create and edit BASIC, Assembly, Pascal, and C 
programs, Smart Terminal files (for uploading or 
downloading), even text files from other word 
processors. Compatible with spelling checkers (like 
Spell 'n Fix). 

Cassette verify command for sure saves. Cassette auto- 
retry means you type a load command only once no 
matter where you are in the tape. 
Read in, save, partial save, and append files with disk 
and/or cassette. For disk: print directory with free 
space to screen or printer, kill and rename files, set 
default drive. Easily customized to the number of 
drives in the system. 

Editing features: Fast, full-screen editor with 
wordwrap, block copy, block move, block delete, line 
delete, global search and replace (or delete), wild card 
search, fast auto-repeat cursor, fast scrolling, cursor 
up, down, right, left, begin line, end line, top of text, 
bottom of text; page forward, page backward, align 
text, tabs, choice of buff or green background, 
complete error protection, line counter, word counter, 
space left, current file name, default drive in effect, 
set line length on screen. 

Insert or delete text anywhere on the screen without 
changing "modes." This fast "free-form" editor 
provides maximum ease of use. Everything you do 
appears immediately on the screen in front of you. 
Commands require only a single key or a single key 
plus CLEAR. 



. . . truly a state of the art word processor. . . 
outstanding in every respect. 

— The RAINBOW, Jan. 1982 



PROFESSIONAL 
WORD PROCESSING 



You can no longer afford to be without the 
power and efficiency word processing brings to 
everything you write. The TRS-80 Color 
Computer is the lowest priced micro with the 
capability for serious word processing. And 
only Telewriter-64 fully unleashes that 
capability. 

Telewriter-64 costs $49.95 on cassette, $59.95 
on disk, and comes complete with over 70 
pages of well-written documentation. (The step- 
by-step tutorial will have your writing with 
Telewriter-64 in a matter of minutes.) 
To order, send check or money order to: 

Cognitec 
704 N. Nob St. 
Del Mar, CA 92014 

Or check your local software store. If you have 
questions, or would like to order by Visa or 
Mastercard, call us at (619) 755-1258 
(weekdays, 8AM-4PM PST). Add $2.00 for 
shipping & handling. CA residents add 6% 
state tax. 

Now available at 

Radio /hack stores 

via express order. 

Apple II is a trademark of Apple Computer, Inc.; Atari is a 
trademark of Atari, Inc.; TRS-80 is a trademark of Tandy 
Corp; MX-80 is a trademark of Epson America. Inc. 



Letters To The Editor 



I'se the Ham 

I am a ham-radio operator who would like 
to learn more about using my 64K CoCo in my 
hobby. I understand personal computers are 
being used in communications to send and 
receive information via ham radio. Is this pos- 
sible with the CoCo? I'd like to hear from any- 
one who uses a CoCo in ham-radio operations. 

Frank Burke (VOIBZ) 
Box 5612 EEPO 
St. John's, Newfoundland A1C 5W8 

Drop Me a Line 

I live in a small town in Argentina and 
would like to trade programs and informa- 
tion with other CoCo users. I've also solved 
Mark Data's Calixto Island and Black Sanc- 
tum adventures and will trade clues. 

Luis Ricardo Blando 
Independencia 189 
San Rafael Mendoza 
Republica Argentina 



Date Minder Update 

There's a programming error in my article, 
"Date Minder" (HOT CoCo, July 1985, p. 74). 
If you enter a special day or regular data for 
October through December, the program 
moves the information into January. To cor- 
rect this problem, please make the following 
line changes: 

110 FORZ1=1TO6:SD=0:S$=STR$(SD(Z 
1) ) :Tl=VAL(LEFT$(S$ r LEN(S$)-2) ) : 
T2=VAL (RIGHT$ ( S$ , 2 ) ) : FORZ 2=lTOTl 
: SD=SD+DM ( Z 2-1 ) : NEXTZ 2 : TS ( Z 1 ) =SD 
+T2 : NEXTZ 1 : RETURN 

140 MO=VAL(LEFT$(TD$,LEN(TD$)-2) 
) :DA=VAL(RIGHT$(TD$, 2) ) :FOR X=l 
TO MO:YD=YD+DM(X-l) :NEXTX 

670 MO=VAL (LEFT$ ( ND$ , LEN ( ND$ ) -2 ) 
) :DA=VAL(RIGHT$(ND$,2) ) :FORX=lTO 
MO:YD=YD+DM(X-l) :NEXT:GOSUB150 

To correct lines in the proper order, delete 
PRINT@224: in line 540. To remove confu- 
sion on the entry position and clear the input 
line in the proper order, insert PRINT© 224: 
?@9,"DAILY ENTRIES"; : in line 540. And 
to fix the default of one entry when the en- 
tries should be zero, change TE = 1 in line 
590toTE = 0. 

JDOS users please note that Date Minder 
files cannot be saved and reloaded under 
JDOS. 

If you've bought a copy of my program 
from me, return the original and I'll send you 
the corrected version. 

James Huckabey 
3303 A Hollywood Ave. 
Bellingham, WA 98225 
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Here's to You, Art! 

I am writing to sing praises for one of your 
advertisers: SpectroSy stems. More specifi- 
cally, I want to praise Art Flexser, company 
president and programmer. 

I found his operating system, ADOS, adver- 
tised in HOT CoCo and later read Stephen Ber- 
ry's comparison review (HOT CoCo, May 1985, 
p.71) of ADOS and SpectrumDOS. Intrigued 
by ADOS's power and customizing features, I 
sent in my order. Once I got the program and 
started working with it, I grew more and more 
pleased with its friendly approach and easy 
operation. 

I then bought PBJ's Word-Pak II and am 
delighted with this fine screen expansion as 
well. However, I found some frustrating in- 
compatibilities between ADOS and Word- 
Pak, so I disassembled them both and devel- 
oped a machine-language program that mod- 
ifies the Word-Pak driver software, enabling 
ADOS and Word-Pak to work together with- 
out losing the great features of either. 

I've talked to Art Flexser, and he plans to 
offer my modification to those who want to 
use ADOS and Word-Pak II together. My deal- 
ings with Art have left me even more im- 
pressed with ADOS. Now I know why this 
operating system is so friendly: because Art 
Flexser is so friendly himself. I've found him 
honest and helpful, and it has been a pleasure 
to deal with him and George McVey, who is 
listed in the ADOS manual as one who will 
burn ADOS onto an EPROM for you. 

Glenn M. Dunn 
Louis, MO 

Mr. Flexser does plan to offer Mr. Dunn's pro- 
gram with ADOS and, with PBJ's permission, 
post the modification on CompuServe for those 
who already own ADOS. 

Mr. Flexser is also offering a program called 
Nutrax by ADOS user Don Hutchison. Nutrax 
lets you convert 35-track disks to 40 tracks 
without losing data already on the disk. 
SpectroSystems now offers the program with 
ADOS, or ADOS owners can download Nutrax 
from CompuServe (DL5) 

In October's "Doctor ASCII" column (HOT 
CoCo, October 1985, p. 13), the Doctor stated 
that ADOS only worked with the 1 .0 Disk Basic 
ROM. However, ADOS is compatible with both 
1.0 and 1.1 ROMs.-eds. 

Reader's Forum Fix 

We inadvertantly left out a line of code in 
Listing 2 of the Reader's Forum piece, Printer 
Formatter (HOT CoCo, October 1985, p. 91). 
Add the following line: 
45 PRINT:INPUT"LEFT MARGIN (TAB)" 
; TAB:IF TB = 0 THEN TB = 1 

—eds 



Clubhouse 

Chilliwack CoCo Club 

The Chilliwack CoCo Club meets the first 
and third Monday of each month at the Thur- 
ston Room on the Canadian Forces Base. For 
more information, phone 604-858-2485 or 
write to me. 

Chilliwack CoCo Club 
do Jeff Russell 
6107 Glengarry 
Sardis, BC V2R 2H7 



Dayton CoCo Users' Group 

The Dayton CoCo Users' Group has the fol- 
lowing new mailing address: 

Dayton CoCo Users' Group 
Steve Lewis 
4230 Cordell Drive 
Dayton, OH 45439 

Joseph P. Evans 



Birmingham, AL 

I would like to start a Color Computer club 
in the Birmingham, AL area. If you're inter- 
ested, phone 592-8812 or write me at the fol- 
lowing address: 

Lanorace Gilmore 
6805 6th Ave. South 
Birmingham, AL 35212 



Color Computer World 

Color Computer World of Central Florida is 
in search of public-domain software— espe- 
cially bulletin-board programs. 

Color Computer World 
of Central Florida 
do Lynndel Humphreys 
5121 Mortier Ave. . 
Orlando, FL 32812 

On Line 



The Tiger's Den 

The Tiger's Den of Whetherford, OK, is 
now operating at 300/1,200 baud. The sys- 
tem is aimed at adventure and war games, 
but we appreciate all types of programs. To 
chat with the sysop, call between 5 and 1 1 
p.m. 

David Miller 
Wetherford, OK 
405-772-7277 



6809 on Line 

by Bobby Ballard 

The Information Bookshelf 



In the search for a better understanding of 
data communications, I've purchased 
many books. Each has contributed to my 
knowledge of this growing field. Four, in par- 
ticular, deserve special attention because they 
have made the greatest contribution to my 
telecommunications education. All are read- 
ily available through local libraries, book and 
computer stores, or publishing houses. 

Two from Texas Instruments 

Understanding Data Communications (cat- 
alog no. 62-1389) is one of a series of books 
published by the Texas Instruments Learn- 
ing Center and distributed through Radio 
Shack stores. The authors, four experts from 
Texas Instruments and Southern Methodist 
University, present subjects ranging from 
data terminals to LANs (local-area networks), 
fiber optics, and satellite communications. 
At $3.95 a copy, it's a bargain. 

While you might never need some of the in- 
formation it offers, much of it is valuable to un- 
derstanding fundamental and advanced 
concepts of data communications. It's a great 
book for beginners because successive chap- 
ters cover progressively more advanced topics. 
Each chapter ends with a short quiz to help you 
evaluate how much you've learned. Topics of 
particular interest include ASCII code, termi- 
nal types, asynchronous and synchronous 
communications protocols, modems, modem 
interfacing, error detection and control, and 
packet networks. The final chapter, which dis- 
cusses network design and management, is 
useful to those setting up a network. 

Understanding Telephone Electronics (cata- 
log no. 62-1388) is another Texas Instru- 
ments Learning Center publication. Don't let 
the title mislead you. While many chapters 
deal specifically with telephone use, several 
of them coven computer-related topics. The 
chapter on electronic dialing and ringing cir- 
cuits will give you a better understanding of 
techniques used in most telephone equip- 
ment. Of special interest to those who tele- 
communicate or run a BBS are the chapters 
on digital-transmission techniques and mo- 
dem-telephone service for computers. The 
information in these chapters alone is worth 
the selling price of $3.49. 

Experiments for Microprocessors 

Data Communications for Microcomputers 



by Elizabeth A. Nichols, Joseph C. Nichols, 
and Keith R. Munson is published by Mc- 
Graw-Hill and sells for $16.95. The book's 
260-plus pages examine data communica- 
tion as it relates to microprocessors, empha- 
sizing troubleshooting and problem solving 
between various CPUs. The authors discuss 
printers, terminals, and telephone networks; 
they also provide discussion on making and 
testing your own cables, interfaces, circuits, 
and diagnostic tools. In addition, you will 
find experiments for the Zilog Z-80 micropro- 
cessor and tips on software development. 
With each program example, the authors are 
careful to relate the information to the gen- 
eral subject so that you can transfer the ideas 
presented to other CPU applications. 

Data Communications for Microcomputers 
contains a wealth of diagrams and charts. If 
you are interested in advanced data-com- 
munication topics, this is the book for you. 
The authors do not fall into the trap of dis- 
cussing what's out there to access (e.g., 
BBSes and on-line databases); instead, they 
present hardcore technical information. 

An Inspiring Sourcebook 

I've saved the best for last. Without a 
doubt, The Netweaver's Sourcebook is the 
most inspiring book I've read on telecom- 
municating. Written by Dean Gengle (foun- 
der of the CommuniTree Group in San 
Francisco) and published by Addison-Wes- 
ley, the book is subtitled A Guide to Micro Net- 
working and Communications. And it is! I 
couldn't put this book down— high praise for 
a book of this type. 

Dean Gengle does not limit discussion to 
technical subjects; the book covers the so- 
cial, psychological, economical, and physical 
implications of networking. That sounds bor- 
ing, but Gengle merges these subjects in an 
exciting fashion, capturing your imagination 
and compelling you to read on. Beginning 
with language, jargon, and buzz words, he 
embarks on a journey that covers diverse 
subjects yet keeps the overall picture in view. 
The book is filled with quotations from a 
wide range of authors, including Aldous 
Huxley, Isaac Asimov, and Alvin Toffler. 

At $14.95 for a 320-page paperbound 
book, The Netweaver's Sourcebook is fairly 
priced. And it is easy to use as a reference. 
The index is broken down into three cate- 
gories: subject, title, and name; the most sig- 



nificant page numbers for an item appear in 
boldface. The book also includes an exhaus- 
tive glossary and extensive appendices that 
provide citations to direct further research 
on a particular subject. 

Gengle's book can help you no matter 
what your personal interests are. In the fu- 
ture, we will be bombarded with more infor- 
mation than we can seemingly handle. Do 
you need this book? The introduction says it 
all, "You need this book because it can save 
you time in the months to come. It can also 
save you dollars and, possibly, suggest to you 
new ways to work and make yourself and 
your company more productive. It can save 
you from being 'the last to know.' In our so- 
ciety's continuing transformation from in- 
dustry to information, being the last to find 
out, being the last to get vital information, 
can be costly." 

I urge you to get a copy of this book and 
read it. You won't regret it, I guarantee it. 

I hope that all the suggestions from my 
bookshelf will prove as useful and inspiring 
for you as they have for me. And if you've 
discovered computer or telecommunications 
books that you would recommend, let me 
know about them. I'd appreciate hearing 
from you.B 



Address correspondence to Bobby Ballard, 
1 207 Eighth Ave., 4R, Brooklyn, NY 11215. You 
can also reach him on CompuServe 
(#72746,2373 or #73135,255) or The Source 
(#BCT1 73) and through MCI Mail (#1 72-3476). 
Bobby's BBS number is 718-499-1633. 



List of Publishers/Distributors 



Addison-Wesley Publishing Co. 
Jacob Way 
Reading, MA 01867 

McGraw-Hill 

1221 Avenue of the Americas 
New York, NY 10020 

Tandy Corp. 

1400 One Tandy Center 

Fort Worth, TX 76102 
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Price Changes 
Occur On A 

Daily Basis. 

Please Call 
1-800-343-8841 



PRICE BREAKTHROUGH 



Price Changes 
Occur On A 
Daily Basis. 
Please Call 

1-800-343-8841 



CO 



"CALL FOR UNADVERTISED SPECIALS" 

Super Sale on New Hard Drives 




MEGADISK™ 

Winchester Hard Drive Ready to 
run on the TRS 80 Model I/III/IV/4P, 
Color Computer, I.B.M.-PC, TANDY 1000, 
Max/80. 

Software Drivers: LDOS, NEWDOS/80, 
DOSPLUS, OS9, TRSDOS 6.0, CP/M, COCODOS 



Fully Warranteed 

DRIVE A HARD BARGAIN™ „ arti „ sat 



$499.95 



Call Toll Free Ordering 1-800-343-8841 




High Quality Lowest Price 
Drive O, 1,2,3 
for the 

Color Computer 
Starting at $219.95 



SOFTWARE SUPPORT, INC 

1 Edgell Road, Framingham, MA 01701 (617) 872-9090 Telex-383425 

Hours: Mon. thru Fri. 9:30 am to 5:30 pm (E.S.T.) Sat. 10:00 am to 3:30 pm 



DEALER INQUIRIES INVITED. 

TERMS: 

M.C./Visa/Amex and personal checks 
accepted at no extra charge. 
Shipping: Please call for amount. 
Not responsible for typographical errors. 
Prices subject to change. 



CANADA 

1720 CHARETTE STREET 
BUBERNAY, LAVAL, CANADA H7E4L9 
514-662-3224 



Service! Service! 

All in stock products are shipped within 24 hours 
of order. 

Repair/ Warranty service is performed within 24 
hours of receipt unless otherwise noted. We 
accept C.O.D., foreign and APO orders. School 
and D&B corporate PO.'s accepted. 



TRS/80 Registered Trademark Tandy Corp. Apple Registered Trademark Apple Computer Corp. 

IBM-PC Registered IBM Corp. Franklin Registered Trademark Franklin Corp. Max/80 Registered Trademark Lobo 

LDOS Reg. Logical System Inc. 



Dosplus — Micro Systems Software 



Newdos/80 — Apparat 
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Prices Change 
Every Day. 
Please Call 
1-800-343-8841 
For Lower Prices. 



PRICE BREAKTHROUGH 



DEALER INQUIRIES INVITED 



Prices Change 
Every Day. 
Please Call 
1-800-343-8841 
For Lower Prices. 



MEGADISK™ HARD DISK DRIVE SYSTEMS TOLL FREE ORDERING 1-800-343-8841 

f IBM/PC, Tandy 1000, TRS/80 Models I/III/IV/4P, Compaq, lava, PC Workalikes, Color Computers, Heath/Zenith, Max/80 



For the 



5 

10 

20 
5 

10 
20 



.Complete with Hardware, Cables, Software and Quikfit Installation 
Megabytes Internal Mount IBM/PC |: starting at 



Wow> 



Megabytes Internal Mount IBM/Tandy 1000 

Megabytes Internal Mount IBM/Tandy 1000 

Megabytes External System 

Megabytes External System 

Megabytes External System ---j. •-^#VS£o& j 



Low 



Prh 



Pes 



starting at 
starting at 
starting at 
starting at 
starting at 
starting at 



279.95 
439.95 
579.95 
499.95 
749.95 
899.95 
449.95 



Tape Backup System — Internal Or External (IBM/PC) 

™ c e * a^-i ki / IBM/Heath — DOS, 1.0, 2.0, 2.1, 3.0, or later 
DOS Systems Available. ^ TRS /80-LDOS, TRSDOS 6.x, Newdos/80, Dosplus, CP/M, COCO DOS, Max/80 LDOS, OS9 

FULLY WARRANTIED — PARTS AND LABOR — 24 HOUR SERVICE — CALL TOLL FREE — 1-800-343-8841 



FLOPPY DISK DRIVES, POWER SUPPLIES AND CABINETS 

Our Disk Drives are UL approved — Our Floppy Drive Cabinets and Power Supplies 
are Underwriters Laboratory Listed and have passed the required Federal 
Communications Part 15 Section B-EMI/RFI tests. 

Warranty on all disk drives is one full year parts and labor. Warranty on floppy disk 
drive power supplies is five (5) years. In warranty or out of warranty service is 24 hour 
turn-a-round on all disk drives and power supplies. 

Full Height — Tandon 

100-1 Single Sided 40 tk Bare $ 99.95 

In Case with Power Supply 139.95 

Dual Drives in One Cabinet 239.95 

100-2 Dual Sided 40 tk Bare 109.95 

In Case with Power Supply 149.95 

Dual Drives in One Cabinet 259.95 

Half High Drives — Tandon/TEAC 

Single Sided 40 tk Bare 79.95 

In Case with Power Supply 119.95 

Dual Drives in One Cabinet 209.95 

Dual Sided 40 tk Bare 109.05 

In Case with Power Supply 149.95 

Dual Drives in One Cabinet 259.95 

Apple/Franklin Disk Drives 

35/40 Track in Case with Cable and Software 129.95 

Commodore Disk Drives 236.95 

Power Supplies and Cabinets 5 V* " and Hard Drive Systems starting at 42.00 



COLOR COMPUTER DISK DRIVE SYSTEMS AND ADD IN PRODUCTS 

40 Track Single Head Drive with Case, Power Supply, Cable 

Controller, Instruction Booklet, Diskettes $219.95 

Above with Dual Drives in One Cabinet 289.95 

40 Track Dual Head with Case, Power Supply, Cable, 

Controller, Instruction Booklet, Diskettes 259.95 

Above with Dual Drives in One Cabinet 379.95 

Dual DOS Switch 29.95 

With Second DOS System — J DOS, RSDOS, and Booklet 69.95 



************ MEGADISK SPECIAL ************ 
With a 10 megabyte system, you can purchase a complete IBM or 
PC compatible host, adapter, software and cable for only $15.00!! 
P.S. Ask about the MEGAPLEXER. 



IBM - PC/XT WORKALIKE 
All of our computers have: 8 slot motherboard, 640K, monochrome adapter, parallel 
printer port, 130 watt power supply, free software, monitor, serial port, clock calendar 
— all with our full warranty. 

/PC- 2 Floppy Drives - Monochrome Monitor, MS-DOS $1,299.00 

5meg/XTtra - 1 Floppy Drive - Monochrome Monitor, MS-DOS $1,599.00 

lOmeg/XTtra - 1 Floppy Drive - Monochrome Monitor, MS-DOS 1,799.00 

20meg/XTtra - 1 Floppy Drive - Monochrome Monitor, MS-DOS 1,995.00 

Internal Tape Backup For Any Of Above systems Add $449.95 

Color for above systems 500.00 



PRINTERS 

Dot Matrix 

Citizen $ Call 

Star Micronics — S.G. Series starting at $259.95 

Panasonic 1090 249.95 

Daisy Wheel 

Silver Reed 440 80 Column 12 CPS 315.95 

550 132 Column 19 CPS 439.95 

770 132 Column 36 CPS 895.00 

Olympia 132 Column 14 CPS with Form and Tractor Feed 399.95 

Apple/Franklin Printer Interface w/Graphics and Cable 84.95 

Printer Cables starting at 19.95 

Printer Paper — Microperf Edge 1000 Sheets 16.95 



ELECTRICAL 

Surge Protectors — Line Filters — SL Waber — 6 Outlets with Switch $ 39.95 

Uninterruptable Power Supplies 399.95 



MODEMS 

Volksmodem 300 Baud $ 69.95 

Signalman Mark X Autodial 123.95 

Mark XII 1200/300 Baud Autodial 284.95 



ALL IN-STOCK ITEMS SHIPPED WITHIN 24 HOURS. SAME DAY SHIPPING 
PROVIDED BY REQUEST WITHOUT ANY EXTRA HANDLING CHARGES. 



MISCELLANEOUS 

Diskettes in 10 Pack from $ 9.95 

Twoprint Switches from 99.95 

Disk Drive Cables from 16.00 

Maintenance Cleaning Kits 12.00 

Parallel Printer Buffers 8K 149.95 

Floppy Disk Drive Cables 

1 Drive 16.00 

2 Drives 18.95 

Heath/Zenith 2 Drive Cables — Shielded 24.95 



80 
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SOFTWARE SUPPORT, INC 



1 Edgell Road, Framingham, MA 01701 (617) 872-9090 Telex-383425 

Hours: Mon. thru Fri. 9:30 am to 5:30 pm (E.S.T.) Sat. 10 am to 3:30 pm 
SERVICE POLICY — Our Professional Technical Staff Is Available To Assist You Monday Through Saturday. 
WARRANTIES — Up To One Full Year Parts And Labor. Floppy Disk Drive Power Supplies — Five (5) Years. 
SERVICE — 24 Hour Turn-A-Round On All In-Stock Parts. Dealer Inquiries Invited. Call 617-872-9090 

Please Call For Shipping, Toll FYCC ! l-800-343"8841 

Handling And Insurance. Please C all Fo r Our Latest Price Saving Specials. Without Notice 



Tell them "I saw It in HOT CoCo.' 
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Mindbusters 



by Richard Ramella 




This program is available on our Instant CoCo cassette. 
See the Instant CoCo ad elsewhere in this issue. 



Goto: 




Custom-Made Brain Twisters 



Eds. note— To enter Puzzle Contest IX, send 
your name, address, score, and complete an- 
swer string to Richard Ramella, 1493 Aft. View 
Ave., Chico, CA 95926. Put your name and ad- 
dress in the upper right corner of the envelope. 
Multiple entries are permissable. Identical 
scores and answer strings from the same ad- 
dress will he judged as a single entry. Entries 
must be postmarked by January 31, 1986. If 
there are tying high scores, the winner will be 
determined in a random drawing. The win- 
ner's name, score, and answer string will ap- 
pear in a future Mindbusters. The winner will 
receive a free one-year subscription or exten- 
sion to HOT CoCo. 



This month's contest listing is called 
Add-A-Dazzle. Turn in the high score 
and you could win a one-year subscription to 
HOT CoCo. Ron Rosentrater of Lakewood, 
CO, did. He is the winner of Puzzle Contest 
IV, which appeared in the August 1985 issue 
of HOT CoCo, p. 16. Congratulations, Ron! 

All told, five entrants had the correct an- 
swers to this contest; Ron Rosentrater's 
name was selected in a random drawing per- 
formed on the Color Computer. The four 
other entrants with the correct answers were 
David Jewell of Oroville, CA, Paul Kacprow- 
icz of Erie, PA, J. Terry Schwartz of Santa 
Barbara, CA, and Neil Parks of Beachwood, 
OH. 

The following are the eight clues com- 
prised by Puzzle Contest IV and their an- 
swers. 

1 . Once followed rear admiral Commodore 

2. HAL OB IBM PC with each letter shifted 
backward one position in the alphabet 

3. Without clarity Sinclair (requires knowl- 
edge of French or Spanish) 

4. EPLAP an anagram of Apple 

5. UST-9 1 TRS-80 with the letters and num- 
bers shifted one forward 

6. John Wayne African movie minus 
one the movie Hatari minus the first letter, 
which yields Atari 

7. Birthday in the Emerald City Osborne 

8. 1 CANE an anagram of ENIAC, one of the 
first big computers 
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Broadly Expressed Answers 

Answer the three questions that follow. 

1. What is Mr. Johnson's first name? 

2. Where do kings most often sit? 

3. Can you: Tell a rope's length as inches? 

Whether you realize it or not, you know the 
answers to all three questions. 

No matter where you live, it is likely you 
are acquainted with or know of some man 
with the most common English surname- 
Johnson. The correct answer to the first 
question is his first name. Like the rest of us, 
kings sit down, on chairs, on their backsides. 
All three answers are acceptable for the sec- 
ond question. The length of a piece of rope, 
the measurements of which are otherwise 
undefined, can be expressed in a simple for- 
mula of your choosing, such as: 



inches = — — 

The first letters of each word following the 
colon in the third question form an anagram 
of the word lariat, but that's just a red her- 
ring meant to confuse people who need to 
find meaning where there is none. A lariat is 
linear, like a rope, but has no fixed length. 

Broadly defined questions can have 
broadly expressed answers. To the true puz- 
zles of life, there are seldom exact solutions. 
We might respond with compromise, with 
partial solution, by banging our heads 
against infinity, or even by ignoring the puz- 
zle so long as it doesn't interfere with our 
existence. 



Control Panel 

I like the idea of a puzzle whose solution is 
up to the solver. That way, no one gets hurt. 
Such a puzzle is Control Panel (Listing 1). It 
is toy-like and malleable; it's as many puz- 
zles in one as the ways in which you choose 



System Requirements 

16K RAM 

Control Panel: Extended Color Basic 
Add-A-Dazzle: Color Basic 
Color TV or Monitor 



to solve it. And the most difficult test of all is 
forcing yourself to continue pursuing the so- 
lution of any one puzzle concept you choose. 
There is no inner test for solution. It's up to 
you to recognize success. 

When you run Control Panel you're pre- 
sented with a space-like scene with a white 
panel on which 35 buttons appear: 12 or- 
ange, 12 blue, and 11 green. One space is 
blank. Push the up or down arrow and a but- 
ton will logically slide into the blank space. 
Each of the three horizontal rows of colored 
buttons moves as a group. To shift the entire 
top row to the left one space, press the 1 key 
for the first row followed by the left-arrow 
key. The colored button all the way to the left 
on the top row will wrap around to the right 
side. Pressing the row number, such as 2 for 
the middle row, followed by either the L for 
left or R for right keys will also work. 

So what's the object, you may well ask. 
You might try manipulating all the orange 
buttons onto the top row, the blue buttons to 
the center row, and the green buttons to the 
bottom row. Or you might put orange but- 
tons to the left, green to the right, and blue 
in between. Is it possible to arrange the but- 
tons so that no two colors are adjacent? Is 
there an arrangement in which two identical 
colors, and no more, are always adjacent 
throughout? If you try this last one, don't 
count the odd green button. 

There are many other puzzles you might 
pursue with Control Panel. The possibilities 
will come to you as you begin to move the 
buttons around the screen. The difficulty of 
each puzzle depends on how tough you want 
to make it on yourself. The harder it is, the 
more satisfaction you'll derive from success. 

Add-A-Dazzle 

When you run Puzzle Contest IX— Add-A- 
Dazzle (Listing 2), the screen turns blue and 
a black square appears with the number 1 in 
the upper right corner. Pressing any of the N, 
S, E, W keys locates the next number in the 
corresponding compass direction. Each time 
you make a move, another number appears 
in the sequence from 1 to 9. On your tenth 
move, the numbers begin over again with 1. 

The object of the puzzle is to keep the 



Educational Programs 




string of numbers alive. The puzzle ends 
when: the entire square is filled, two identical 
numbers fall in boxes that are adjacent hor- 
izontally or vertically, or you move into a po- 
sition from which there is nowhere to move. 
The more numbers you add to your trail the 
higher your score will be. The program keeps 
track of your score automatically. Scoring is 
determined by multiplying each number by 
those numbers that directly contact its four 
sides and adding the subtotals together. 



When the game ends, it prompts you to 
press any key for your answer string and 
score. These are required for entry into the 
contest. If you have a printer, you can print 
the answer siring by typing PRINT #-2,ST$. 
Add-A-Dazzle also runs on the MC-10 if you 
change line 120 to read PK = 16384. To print 
the answer string with the MC-10, type 
LPRINT ST$. If you do not have a printer, 
carefully copy down your answer string and 
score. Next month: Hitting the jackpot. ■ 



Program Listing I. Control Panel 

100 REM*CONTROL PANEL*TRS-80 EXT 
ENDED COLOR BASIC 16K* RAMELLA 
110 CLS: PMODE 3,1: COLOR 3,0: P 
CLS3: SCREEN 1,1 

120 DIM M(10,58): DIM R(3): R(0) 

=12: R(2)=ll: R(3)=12 

130 S$=CHR$(94)+CHR$(10)+CHR$(8) 

+CHR$(9)+"123" 

140 COLOR 1,1: LINE ( 5 , 5 ) - ( 248 , 30 

) ,PSET,BF: COLOR 2,1 

150 CIRCLE(28, 18) ,8, , 1, . 15, .85: 

CIRCLE(44,18) ,8: N$= " Ul 5F3D3 F3D3 

F3U15" : DRAW n BM59,25"+N$ 

160 DRAW n BM81,25;U15L6Rll n : DRAW 

"BM90,25;U15R6F2D3G2L6R2F6D2" 

170 CIRCLE(111,18) ,8: L$="U15D15 

R10" : DRAW"BM122,25; "+L$ 

180 DRAWBM154, 2 5 ; Ul 5R6 F2D3G2L6 " 

: DRAWBM168 , 25 ; U4E2U4E4F4D4L8R8 

F2D4" 

190 DRAW"BM187,25"+N$: DRAW" BM20 
5,25;R10L10U8R4L4U7R10 W : DRAW" BM 
220,25;"+L$ 

200 COLOR 1,1: CI RCLE ( 2 30 , 1 60 ) , 5 
0: PAINT(250,160) ,2,1: CIRCLE(20 
0,140), 8: CIRCLE(240,172) ,10 
210 FOR X=l TO 40: CI RCLE ( 4+RND ( 
176) ,110+RND(70) ) ,RND(4) ,RND(4) : 
NEXT 

220 COLOR 1,0: LINE ( 2 , 3 5 ) - ( 2 5 2 , 1 

05),PSET,BF: FOR A=l TO 35 

230 3=RND(4)-1: IF B=l OR R(B)=0 

THEN 230 ELSE R(B)=R(B)-1 
240 X=RND(12)*20-12: Y=RND(3)*20 
+20: IF PPOINT(X+9,Y+9)<>5 THEN 
240 

250 COLOR B,l: CIRCLE ( X + 9 , Y+9 ), 7 
: PAINT(X+9,Y+9) ,B,B: NEXT 
260 GOSUB 360 

270 A$=INKEY$ : S=INSTR ( S$ , A$ ) : I 
F S=0 OR A$ = " n THEN 270 
280 IF S>4 THEN S=S-4: L=S*20+20 
: GOSUB 320 

290 IF S=l AND Y<80 THEN GET(X+2 

,Y+20)-(X+19,Y+40) ,M,G: FOR F=Y+ 

20 TO Y STEP -2: PUT ( X+2 , F ) - ( X+l 

9,F+20) ,M,PSET: NEXT 

300 IF S=2 AND Y>40 THEN GET(X+2 

,Y-20)-(X+19,Y) ,M,G: FOR F=Y-20 

TO Y STEP 2: PUT ( X+2 , F ) - ( X+19 , F+ 

20),M,PSET: NEXT 

310 GOSUB 360: GOTO 270 

320 A$=INKEY$: S=INSTR ( S$ , A$ ) : I 

F A$=" n AND S<>3 AND S<>4 THEN 3 

20 

330 IF S=3 THEN Q=PPOINT ( 16 , L+9 ) 
: GET(27,L)-(247,L+20) ,M,G: PUT( 
7,L)-(227,L+20) ,M,PSET: CIRCLE(2 
3 6, L+9) , 7,Q: PAINT ( 236 , L+9 ) ,Q,Q 
340 IF S=4 THEN Q=PPOINT ( 236 , L+9 
): GET(7,L)-(227,L+20) ,M,G: PUT( 
27,L)-(247,L+20) ,M,PSET: CIRCLE( 



16, L+9), 7, Q: PAINT ( 16 , L+9 ), Q , Q 
350 RETURN 

360 FOR Y=40 TO 80 STEP 20: FOR 

X=7 TO 227 STEP 20 

370 P=PPOINT(X+9,Y+9) : IF P=5 TH 

EN RETURN ELSE NEXT X,Y 

380 END 



Program Listing 2. Puzzle Contest IX— Add-A- 
Dazzle 



100 REM 
COLOR BASI 
110 CLS3 
89" 
120 PK=102 
130 REM * 

PK=16384 
140 FOR X= 

Y=l TO 12 
T Y,X 
150 X=204: 
160 Z$=INK 
N" AND Z$< 
$<>"S n AND 
170 IF Z$= 
>128 OR Z$ 
<>128 THEN 
180 IF Z$= 
128 OR Z$= 
128 THEN 1 
190 IF Z$= 
200 IF Z$= 
210 IF Z$= 
220 IF Z$= 
230 Z=Z+1: 
240 GOSUB 
250 P=PEEK 
-32)-48: D 
EEK(PK+X-1 



ADD-A-DAZZLE * TRS-80 
C AND MC-10 BASIC 
CLEAR 500: A$= n 1234567 



MC-10, MAKE ABOVE LINE 

66 TO 418 STEP 32: FOR 
: POKE PK+X+Y,128: NEX 

Z=l: GOSUB 360 
EY$: IF Z$= n " OR Z$<>" 
>"W" AND Z$O n E n AND Z 

Z$<>"S" THEN 160 
"N" AND PEEK(PK+X-32)< 
= "S" AND PEEK(PK+X+32) 
160 

"W" AND PEEK(PK+X-1)<> 
"E" AND PEEK(PK+X+1)<> 
60 

"N" THEN X=X-32 
"S" THEN X=X+32 
"W" THEN X=X-1 
"E" THEN X=X+1 

IF Z>9 THEN Z=l 
360 

PK+X)-48 : U=PEEK(PK+X 
=PEEK(PK+X+32)-48 : L=P 
)-48 : R=PEEK(PK+X+1 )-4 



260 IF U>0 AND U<10 AND D>0 AND 

D<10 AND L>0 AND L<10 AND R>0 AN 

D R<10 THEN 370 

270 ST$=ST$+Z$ 

280 IF U>9 THEN U=0 

290 IF D>9 THEN D=0 

300 IF L>9 THEN L=0 

310 IF R>9 THEN R=0 

320 IF P=U OR P=D OR P=L OR P=R 

THEN 370 

330 SC=SC+(P*U)+(P*D)+(P*L)+(P*R 
) 

340 PRINT @ 480, "SCORE: "SC; 
350 GOTO 160 

360 POKE PK+X,ASC(HID$(A$,Z,1) ) : 
RETURN 

370 PRINT @ 0, "PRESS A KEY FOR A 

NSWER STRING" ; A 

380 C$=INKEY$: IF C$=" n THEN 380 

390 CLS: PRINT ST$ : PRINT: PRINT 
"FINAL SCORE: "SC: END 



BASKETBALL 
STATISTICS 

by Jeff Stevens 

Coaches, let CoCo do the paperwork! 
Keeps each individual game, plus 
league, non-league and all game to- 
tals for a maximum of 1 6 players in up 
to 29 games. Stats can be kept in as 
many as 17 different categories — 
assists, steals, field goals, and free 
throw stats (made-attempted- 
percentages), offensive and defen- 
sive rebounds, turnovers, personal 
fouls, charaes, playing time, quarters 
played and points. Totals for the op- 
position team and for your individual 
players are printable. Your season 
record and scores-to-date are avail- 
able at any time. Basketball Statis- 
tics prints a year-end summary of 
each individual player on a game-by- 
game basis. Team stats for your team 
and the opponents' totals for the year 
are included. Menu driven — Easy to 
run — Excellent for most any basket- 
ball team. 

Tandy Color Computer 
requires Extended Basic. 
32K Disk - $29.95 

Tandy Model III IV 4P 
32K Disk - $29.95 



54 TT&5~ ( 

LONG DIVISION 

by John Ashurst 



Provides practice in long division of 
whole numbers with tutorial help. A 
blinking cursor helps students with the 
correct placement of each digit. A 
special workspace is provided for mul- 
tiplication. Whenever an error is 
made, students may ask for assis- 
tance. The reason for the error is 
given. Students may correct the error 
and continue on with the problem. 
Long Division is multi-leveled and in- 
cludes scoring. 

Grades 4-6 
$19.95 Cassette 
$21.95 Disk 
Tandy Color Computer 
requires Extended Basic 
Also available for Commodore 64 

Write for a free brochure 
or ask for a dealer demonstration. 



B-5 Software Co. 

1024 Bainbridge Place 
Columbus, Ohio 43228 
Phone (614) 276-2752 
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Doctor ASCII 

by Richard E. Esposito and Ralph E. Ramhoff 



Having technical difficulties? Consult the Doctor for an answer. Due to 
the volume of mail Doctor ASCII receives, we cannot guarantee that your 
query will he published. Please send a self-addressed, stamped envelope 
with all letters to Doctor ASCII, do HOT CoCo, 80 Pine St., Peterborough, 
NH 03458. 



01 use Tandy's EDTASM + ROM pack to program under machine 
■ language. Sometimes my programs make the CoCo hang up, 
forcing me to turn it off to regain control. Of course, I also lose my 
program. Is there any way to reload the source code into memory 
without retyping it? Also, is there any way to CSAVE and CLOAD 
programs at high speed (POKE 65495, 0)?-Hector Trincavelli, Cor- 
doba, Argentina 

A A machine-language program can hang up your CoCo in many 
r\ ■ ways. FB name just a few of them. It can go into an infinite loop 
due to a programmer's logic error, it can write unexpected data onto 
the stack, or it can write data over some of its own instructions. These 
problems, or bugs, leave the CoCo's memory in an indeterminate 
state. EDTASM + has no alternative but to clear memory upon power 
up since it cannot assume anything about what is in memory. The 
bottom line is that you can guarantee that your Assembly code is safe 
only by copying it to cassette before executing it. 

Fastape from SpectroSy stems (1 1 1 1 1 N. Kendall Drive, Suite A 108, 
Miami, FL 33176, 305-274-3899) will load and save tapes at high 
speed. It sells for $21.95. 

OHow does Basic's GOSUB command work? Also, I have been 
•reading HOT CoCo for only a short time, and terms such as ED- 
TASM and CCEAD confuse me. Can you help?-Ken Banghart, Red- 
lands, CA 

A The GOSUB command is a little like the GOTO command , which 
rA ■ causes program execution to continue with the line whose num- 
ber follows the word GOTO. The only difference is that the GOSUB 
command says, "Go there, but first remember the location of the next 
statement to be executed here." You use the RETURN command to 
tell Basic to continue executing the program immediately after the 
GOSUB. RETURN says to Basic: "Go back to the statement that fol- 
lows the last GOSUB executed." Each GOSUB executed must execute 
a RETURN to cause Basic to delete the return location that the GOSUB 
remembered. The GOSUB command allows a single routine to be ex- 
ecuted from many places in the program without duplicating the ac- 
tual code. 

Your second question is simpler to explain, but impossible to an- 
swer completely. The computer industry is very big on using acro- 
nyms. The driving force for this is that identifiers such as file and 
program names are restricted to a fixed length when stored on disk or 
other media, usually eight to 12 characters. It is a good practice to 
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have names describe what the file is. For example, the editor/assem- 
bler might be called EDTASM, and the Color Computer Editor/ Assem- 
bler/Debugger might be called CCEAD. These cryptic names make 
the computer field seem a bit too technical. However, they do save a 
lot of verbiage, if you understand them. Unfortunately, the only way 
to learn them is through long-term exposure. Read on! 

01 have heard of a program that will enable me to play an audio 
• tape into the computer and let me hear the sound from my TV 
speaker. This allows my computer to talk, but the messages can be 
played only in a specific order and they must come from cassette. I 
don't want just a speech cartridge.— Bob McArthur, Prince George, 
BC 

A Spectral Associates (3418 South 90th St., Tacoma, WA 98409, 
Al* 206-58 1-6938) sold Compuvoice and Soundsource, which will 
do what you ask, a couple of years ago. Contact them for the latest 
prices and availability. 

QHow do you set PMODEs, SCREENS, and PCLEARs from As- 
sembly language? Bill Barden's Assembly-language book says 
it's easy, but doesn't go into detail.— Shawn Long, Hurdle Mills, NC 

A For a technical description, write Motorola Semiconductors, P.O. 
/l .Box 20912, Phoenix, AZ 85036 for Advance Information Sheets 
ADI-595 and ADI-492 on the 6883 SAM and 6847 VDG chips, respec- 
tively. You can find a less technical, textbook-style description in As- 
sembly Language Graphics for the TRS-80 Color Computer, by Don and 
Kurt Inman (Reston Publishing Company, 1983). 



OWhat is a light pen? Can a light pen copy text from a book or a 
■ magazine onto a monitor?—!). Roney, Sedona, AZ 

A A light pen is a device that looks like a pen, but has a photocell 
rA ■ instead of a writing point at its tip. Essentially, it works like this: 
Each pixel on the screen is blinked in succession very quickly, and 
the light pen's photocell, upon sensing this this blink, signals the 
computer. This interaction between pen, screen, and computer gives 
you the sensation of drawing with light on a CRT display. 

As to having a computer text scanner, such devices exist, but they 
are expensive. I haven't seen one for the CoCo. 

OCan I buy or build an interface that will allow me to use my 
■Centronics 701 printer and its 36-pin parallel interface with 
my CoCo?— Sudhir Kapoor, Covington, GA 

A You can interface it in two ways: First, use a serial-to-parallel 
jrA ■converter, many of which are available for the CoCo. The advan- 
tage to using one of these is that you don't need a software driver. The 
alternative is to add a hardware parallel interface to your CoCo's ex- 
pansion connector. This allows your printer to go as fast as it can, but 
requires a software driver since Tandy's ROMs contain no such 
code.B 



NumberJack 



The 'HJL Numeric Keypad 
for Color Computers 




Cuts number crunching down to size 



Now you can enter and revise data 
twice as fast in spreadsheets, 
accounting and other number- 
intensive applications with the HJL 
numeric keypad, NumberJack. 



A sleek addition 

to your personal computer 

NumberJack has a streamlined, 
low-profile ABS enclosure that 
measures Just 5-1/2 x 7-1/2 x 2-1/4 
max. The full-travel keyswitches 
have the same comfortable feel 
and reliability that have made the 
HJL-57 everyone's favorite CoCo 
keyboard. 

Much more than numbers 

Besides the ten numeric keys, you 
get all four cursor keys, Clear, @, 
decimal point, Comma, Enter, and 
alt four standard math keys. 

Autoshlfted Add and Multiply 

One keystroke is all it takes to 
enter the Add and Multiply keys 



without shifting. Meanwhile the 
colon and semicolon are still 
instantly accessible from your 
main keyboard. What's more, 
NumberJack has its own shift key 
to provide convenient access to all 
the numeric shifted symbols. 



Quick and easy installation 

The completely self-contained 
NumberJack keypad can be 
installed in five minutes or less. 
No soldering, no drilling, and no 
special tools are required. Comes 
with complete instructions, a 3-foot 
plug-in cable and all necessary 
connectors. 

HJL perform a nce» 
You can count on it 

Bounce-Proof keyswitches are 
rated for 50 million cycles per key 
minimum and mounted on a solid 
aluminum baseplate. Contacts are 
covered by a protective membrane 
to guard against dirt, dust, and 
accidental spills. The NumberJack 
is built so well it carries a full, 



one-year warranty and the 
exclusive HJL Products 15-day 
money back guarantee. 

Works with all color computers 

Including Original, F-version, CoCo 2, 
TDP-100 and Dragon. Some CoCo 2 
computers purchased after November, 
1984 will require a special adapter 
($3.00); just let us know the model 
number and we will add it to your 
order if required. 

Order yours today 
Just $89.95 

Cut the tedium out of numeric data 
work. The NumberJack gives your 
CoCo the input capability of machines 
that cost hundreds of dollars more. 

call Toll me 
1-800-828-6968 

In New York 1 800-462-4891 




Ordering Information: Specify model (Original, F-verslon, or CoCo 2 model #). Payment by C.O.D., 
check, MasterCard or Visa. Credit card customers Include complete card number and expiration date. 
Add $2.00 for shipping ($3.50 for Canada). New York state residents add 7% sales tax. 
Dealer inquires invited. 



PR O □ U C T S 

Div. of Touchstone Technology Inc. 
955 Buffalo Road • P.O. Box 24954 
Rochester, New York 14624 

Telephone: (716) 235-8358 



The Computer Room 



Letting Tandy 
Cook Your Goose 

by Scott L. Norman 




Co o k Bo o k, 
Tandy's new 
menu planner/rec- 
ipe file/shopping- 
list generator, 
might just become 
the first program 
whose effects show 
up on the Norman 
family dinner table. 
That would be quite 
an achievement. Al- 
though my wife 
Sharon is a serious 
student of cooking, 
she has never ap- 
plied the computer to aid in her culinary arts 
in any big way. 

Her reasons are good ones. Flour, shorten- 
ing, and sticky fingers make the average 
kitchen an unfriendly place for keyboards 
and disk drives. For that reason alone, it is 
unlikely that many CoCos will find homes 
near (much less on) the range. 

However, filing recipes and planning meals 
are two tasks that could be performed by 
computer under less damaging conditions. 
Unfortunately, most powerful, general-pur- 
pose databases seem too complicated to be 
worth the bother to the cook whose interests 
lie elsewhere, and the simpler file managers 
have few advantages over 3-by-5 cards, 
three-ring binders, or other conventional rec- 
ipe keepers. 

There are specialized recipe-file managers 
on the market, but few offer a convenient 
mix of features. For example, Sharon and I 
found Computerware's CoCo Cookbook (HOT 
CoCo, July 1985, p. 42) easy to use but lack- 
ing in such niceties as menu planning and 
the ability to scale quanities of ingredients 
according to the number of servings. Tandy's 
CookBook has a go at addressing these par- 
ticular problems. 

Caveats 

Besides providing you with a startup col- 
lection of about 320 recipies, CookBook acts 
as an "executive chef" capable of suggesting 
complete menus for a variety of meals. It 
takes into account your requirements for the 
type of food to be emphasized, general cost 
level, and whether the meal is to be simple 
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or elaborate. It provides 
exceptionally complete 
recipe listings for any 
number of servings you 
specify, and can create a 
shopping list of the in- 
gredients required for 
any given dish. 

Well, not quite any 
dish. Only the 300-odd 
recipes that come with 
the program are rec- 
orded in the form needed 
to make these advanced 
features work. While you 
can store your own reci- 
pes on additional disks, all the program can do 
with them is create an index, let you browse 
through your collection, and retrieve a partic- 
ular entry. The computer won't scale the ingre- 
dients, and it won't be able to compose 
tempting menus out of your submissions. 

Program author Robert Siegel seems to be 
assuming that the typical user simply won't 
have some of the information that the pro- 
gram's advanced features need. Tandy's rec- 
ipes include information about the food 
groups they contain, the sorts of meals for 
which they are suited, the cost, and other 
matters. The data appear in a particular for- 
mat, so the program can readily search for 
dishes which satisfy some criterion or other. 

In contrast, when you enter a recipe of 
your own, you are only prompted for the 
number of servings, the ingredients, and the 
preparation instructions. There is no avenue 
by which you can get the other classification 
data into the disk file short of digging into the 
source code and hacking away. 

I think that the program could have been 
made versatile enough to do more with a 
user's recipes: It could ask for the extra data 
and handle those dishes that included the 
necessary information just like it does the 
stock recipes. The option of performing as a 
simple filing system could always be re- 
served for those cases in which some of the 
information was unavailable. 

On Its Own Two Feet 

CookBook requires 32K and at least one 
disk drive; two are better. The package in- 
cludes a nearly full program disk and an- 



other of recipes, and having to switch 
constantly between them would be annoying 
in day-to-day operation. 

There are two major operating modes: 
Menu Planner and Recipe Index. Under 
Menu Planner, the computer can lay out any 
one of a dozen types of meals, ranging from 
brunches to formal dinners and holiday or 
seasonal feasts. The manual goes into con- 
siderable detail about the implications of 
choosing various options for each. In addi- 
tion to juggling all the factors I mentioned 
earlier, for instance, CookBook lets you spec- 
ify whether a meal is to be light and small or 
heavy and substantial. This usually affects 
the number of courses offered. 

One frustrating point: The program will 
only present you with four complete menus 
for a given run, no matter how many poten- 
tial combinations of dishes there might be. If 
none of the four meal plans offered catch 
your fancy, you have to backtrack through 
three layers of program menus and start 
over. It takes about a minute for the program 
to search its files for all the dishes that meet 
the criteria for a given meal, and another 
minute or so to compose the four winning 
menus. 

There is no printout option for meal plans! 
You have to copy the names of the dishes so 
that you can later retrieve them from 
CookBook's files. That should be fixed. 

Other Menu Planner options let you select 
a beverage or create a new dish. Beverage 
selection usually comes down to a recom- 
mendation of coffee or tea, along with a very 
bare-bones wine list, while "Create New 
Dish" merely suggests sauces to accompany 
any meat, poultry, or seafood item you spec- 
ify. Some of the combinations are pretty in- 
triguing, although making the sauces might 
require the use of an auxiliary cookbook of 
the hardcopy variety. 

With meal plan in hand, you are ready to 
tackle the Recipe Index mode. Here, you can 
retrieve a specific recipe or browse through 
your data file. Just in case you don't quite 
remember the name of a particular recipe, 
CookBook gives you the six nearest alpha- 
betical matches. Browsing options let you 
see the alphabetized titles of all recipes, rec- 
ipes that concentrate on a specific type of 
food, or only those recipes especially suited 
for one of the predefined meal types. 



The recipes themselves are unusually 
complete. In addition to ingredient lists and 
preparation instructions, you get informa- 
tion on the calorie content, the preparation 
time, food groups present, and even a list of 
the utensils needed to prepare the dish— an 
especially handy feature in a busy kitchen— 
and you can print out this information. 

A number of other options spring from this 
section of the program: two particularly use- 
ful ones are the ability to scale recipes up or 
down and an online glossary of cooking 
terms for the less experienced chef. You can 
also create a shopping list that lists the ingre- 
dients (in the same order as the recipe itself) 
and the amount of each required. If you 
change the size of a recipe, the shopping list 
changes accordingly. 

Cookbook made a favorable impression. I 
do wish that the program allowed random 
access to its options (you have to step 
through every item to reach the one you 
want), and both Sharon and I would like it to 
do more with user-entered recipes. On the 
positive side, many of the prerecorded reci- 
pes are quite interesting and most of the 
menu-planning suggestions make sense. ■ 



Scott Norman is the manager of solid-state 
science at GTE Laboratories in Waltham, MA. 
Write to him at 8 Doris Road, Framingham, 
MA 01701. 



Products Mentioned in 
The Computer Room 

CookBook 

Tandy Corp. 

1400 One Tandy Center 

Fort Worth, TX 76102 

32K disk 

$39.95 

CoCo Cookbook 
Computerware 
4403 Manchester Ave. 
Box 668 

Encinitas, CA 92024 

32Kdisk 

$27.95 



OS-9 SOFTWARE/HARDWARE 

SDISK— Standard disk driver module, allows the use of 40 and 80 track double sided 

drives with COCO OS-9, plus reads/writes format used by other OS-9 systems. $29.95 

SDISK + BOOTFIX— To boot from a DOUBLE sided disk $29.95 

PC-XFER— Read/write ss MS-DOS™ diskettes under CoCo OS-9, requires SDISK. 

$45.00 

CCRD 512K Byte RAM DISK CARTRIDGE— Requires RS Multipak interface; with 
software below creates OS-9 RAM disk device. $298.00 
CCRDV— OS-9 Driver software for above. $20.00 

Terms: Prepaid Check, MO, VISA/MC; add $150 S&H for software, $5.00 for CCRD. 
COD actual charges added. Send SASE for latest catalog. 

D.P. Johnson 7655 S.W. Cedarcrest St. Portland, OR 97223 
(503) 244-8152 (We prefer your calling 9-11 AM Pacific Time.) 

OS-9 is a trademark of Microware and Motorola Inc. 
MS-DOS is a trademark of Microsoft, Inc. 



VI OX • Video digitizer f 



Print Your Graphics On T-Shirts .... Send 

large self-address stamped envelope 
MAX-X Pad a patch to run your RS-X Pad 

with COCOMAX $14.95 PPD. 

MUSX DISKS 1 - 5, See our review April 85 

RAINBOW . . Were $13.95 each 

NOW $6.00 EACH PPD. 
SHRINX - reduce your graphics pictures 

Reviewed March 85 RAINBOW . . . 

Special $21.95 + $1 Postage. 
GRAPHICOM - Reg. $29.95 - NOW $19.95 

+ $2 Postage. 
GRAPHICOM PICTURE DISKS (Art 1, 

Art 2, Aid 1, Font 1) Special $19.95 

$2 Postage. 
CHRIS W. BROWN GRAPHICOM ART 

DISKS (New Fonts & Graphics) - 2 Disk 

Set . . $19.95 + $2 Postage. 
COMPUSERVE Starter Kits - $20 +$2 

Postage 

64K CHIPS . . Set of 8 . . $19.95 + $1 Post. 
BASF SSDD Disks with sleeves 10-$10 PPD 
Send for our Digitized Pix Demo Disk 
$3.50 PPD. 



Connects to the RS-232 port of your COCO, 
no need for Y-CABLES or MULTIPACKS! 
Runs on minimum 16K to 32K TAPE or 
DISK. Comes with software easily modi- 
fiable to your needs. WHY PAY MORE? 
Unlimited GREY scale when you use a 
color camera) The only digitizer that 
recommends you use a color camera!!! 

VIDX-1 $99.95 + S3 Postage 

VlDX-2 $124.95 + $3 Postage 

VIDX-2 Has A RS-232 Switcher Built In. 



CHECK US 
Ft* oox. 

to* 

pe/cesrf 
Sba/d f&e 




To Order Send Check or M. O. 
GRAFX 
P.O. Box 254 
West Mifflin PA 15122-0254 



Sweeten Your CoCo 
With a Little Sugar 

Our popular products for the CoCo 
include: 

^CoCo Calligrapher — $24.95 T; 

$29.95 D 
^OS-9 Calligrapher — $39.95 D 
^Rental Property — $34.95 D 
^Color Disk Manager — $34.95 D 
^Sports Statistics Packages: 
Each $29.95 D 
Football Basketball 
Baseball Soccer 
^TIMS — $24.95 T 
^Prereader — $19.95 T; $24.95 D 
^Galactic Hangman — $17.95 T 
^Great USA — $19.95 T; $24.95 D 

Mention Hot CoCo in your mail or 
phone order and receive a free gift! 

Write for our complete catalog of 
Sugar Software products and 
descriptions. 

Dealer and author inquiries are 
always welcome. Disk software 
compatible with Radio Shack 
DOS only. 

Add $1.50 per program for postage 
and handling. Florida residents add 
5% sales tax. COD orders are wel- 
come. CIS orders EMAIL to 70405, 
1874. Xo refunds or exchanges. 

SUGAR SOFTWARE 

1710 Xorth 50th Avenue 
Hollywood, Florida <YM)2l 
(305)981-1241 



HIGH SCHOOL AND COLLEGE 
MATHEMATICS 
LEARNING 
SOFTWARE 
For School and Home 
Apply the power of your 
Color Computer 
to improve student mastery 
and understanding of 
all high school and college math. 

COORDINATE DEFENSE 

(Video Game — Style Drill) $25 

PRE-ALGEB^A LEARNING PACKAGE* 

(3 Drill and Practice Programs) $50 

ALGEBRA LEARNING PACKAGE* 

(7 Drill and Practice Programs) $80 

TRIG PACKAGE 

(2 Program Set) $35 

STATISTICAL ANALYSIS 

(All usual data analysis) $30 

PROBABILITY GRAPHICS PACKAGE 

(3 HI-RES Simulations) $50 

4 CALCULUS GRAPHICS PACKAGES 

(Each has 6 HI-RES Programs) ea. $75 

STATISTICS GRAPHICS PACKAGE 

(7 HI-RES Programs) $100 

BIO-MATHEMATICS 

(2 Population Growth Models) $40 

* Available in 16K Standard 
Available on Cassette or Disk 

MatheGraphics Software 

61 Cedar Road, Suite C 
East Northport, NY 11731 
516-368-3781 
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SPECTRAL'S 



SPACE PAC 



AWARD WINNING SOFTWARE 

Incredible savings on collections of best selling games from Spectral! 
Each Game Pac includes oijr most popular games at savings of up to 

77% off regular price 







Reg. 


Android Attack(Berzerk) 


16K 


14.95 


Color Zap (Space Zap) 


16K 


9.95 


Cosmic Invaders (Space Invaders) 


16K 


14.95 


Galax Attax (Galaxians) 


16K 


14.95 


Whirlybird Run (Scramble) 


16K 


9.95 


Planet Invasion (Defender) 


16K 


14.95 


Space Race (Omega Race) 


16K 


14.95 


Space War (Interplanetary Combat) 


16K 


9.95 


Storm Arrows (TARG) 


16K 


9.95 


Space Sentry (Space Game) 


16K 


9.95 


EDUCATIONAL PAC $70 value for $17.95 






Reg. 


Alpha Search (Alphabet Tutor) 


16K 


9.95 


Horseplay (Vocabulary Builder) 


32K 


14.95 


Quiz Spin (Spelling, Presidents, Math, 






States, Capitals) 


32K 


14.95 


Spanish Football (Spanish Tutor) 


16K 


9.95 


Integer Math (Elementary Math) 


16K 


9.95 


Europe Pac (European Geography) 


16K 


9.95 



$125 value for $19.95 * ARCADE PAC 



Defense (Missile Command) 
Lemans (Race Car Game) 
Color Panic (Space Panic) 
Ghost Gobbler (Pac* Man) 
Beam Rider (Arcade Strategy) 

TECH PAC 



$65 value for $17.95* 

Reg. 
16K 14.95 
16K 9.95 
32K 14.95 
1 6K 9.95 
16K 14.95 

$50 value for $14.95* 

Reg. 

Diskedt (Fix & Alter Disk Data) 1 6K 1 4.95 

Oracle (Graphics Monitor) 32K 9.95 

Color Disassembler (Crack Your ROMs) 1 6K 9.95 
Bugout (Powerful Monitor) 16K 9.95 

Join (Concatenate Your Files) 1 6K 4.95 



ADVENTURE PAC 



$65 value for $14.95 * 

Reg. 
9.95 



* add $4.00 for disk 



Pirates Ahoy (Pirates Adventure) 32K 
Prison City (Basic Adventure 

with Graphics) 16K 9.95 

Maze Escape (3-D Maze Adventure) 1 6K 1 4.95 

Caverns of Doom (Dungeon Adventure) 1 6K 1 9.95 

C-Trek (Space Adventure) 1 6K 9.95 



30 games for under $30* 

Spectral has done it again! We have gathered a great collection of 30 
games and put them together in our New TREASURY PAC. Each game 
retails for $8 to $21 . That's a $200 savings! 



"cassette price; disk, add $4.00 



$29.95 



THE ULTIMATE 
GRAPHIC ADVENTURE 

HiiariiB Cautle 



If you love adventure games, or even if you have 
never been able to get past first base in one, you 
will love Wt^arb's (Castle! Multiple skill levels 
allow the beginning adventurer to enjoy a non- 
aggravating, enjoyable game while allowing the ex- 
perienced player the choice of a highly intricate, 
challenging contest. Over sixty high-resolution, 
animated screens give ffli^ariTs (Castle the ultimate 
in visual excitement. Real time action keeps the 
game's characters interacting even though you may 
be waiting to make a move. This interaction, pi- 
oneered by Spectral in Madness and the Minotaur 
and Keys of the Wizard, insures a game of con- 
stantly changing, never-ending fun. 

Don't miss out on the most challenging and enjoy- 
able new high-resolution graphic adventure game 
of the year. Get fflt^arb'B (Castle today! 



CALL 1 -206-58 1 -6938 to place your Visa or MasterCard order today! 
SEND your order with check or money order (sorry, no CO D.) to: 

SPECTRAL ASSOCIATES 
34 1 8 South 90th Street 
Tacoma, Washington 98409 

All orders shipped in two business days. Allow two weeks for delivery. 
Shipping & Handling: 

United States add 3%; $3 minimum Canada add 6%; $3 minimum. Foreign 
add 1 5%; $5 minimum. Washington State residents add 7.8% sales tax 



FEATURES 

HIGH RESOLUTION GRAPHIC* 
64 K RAM DISK BASED 
GAME SAVE FEATURE 
MULTIPLE SKILL LEVELS 
REAL TIME ACTION $19.95 
TALKING GAME 
ANIMATED SCREENS 
DEADLY CREATURES 
MAGIC SPELLS 
NEW GAME RANDOMIZATION 



CHRISTMAS BONANZA!!! 

You'll never find such outstanding software at prices 
this low again. Don't miss out on the opportunity of a 
lifetime to stock up on the best Color Computer soft- 
ware available. Compare price and quality with ANY 
other company - Spectral can't be beat! 

TALKING GAMES 

Spectral Games speak for themselves. Now these top ten games 
will speak when you have a Tandy Speech/Sound cartridge installed. 

P 




m 1 r 1 1 

mm wit H 

■ _• Km?- ■ 

I I 




SYGYZY 

Ultra exciting Hi-Res. 3-D graphic adven- 
ture game! You must survive the dangers 
and solve the puzzles in order to meet 
Darth Vader in final combat. Requires 32K 
RAM. 

$17.95 



MODULE MAN 
Guide Module Man through 1 5 rooms of 
the evil Sorcerer's dungeon, in search of 
the King's sword. 15 screens give this 
game never-ending excitement! 32K & 

$17.95 



SPACE WREK 
3-D Hi-Res graphics make this the most 
realistic Star Trek game ever made! 32K 
& joysticks required. Talks with Tandy 
Speech Sound pack, and Spectrum's Q _ 

Voice Pak. #l/.5f0 joysticks required 

Other Talking Games from Spectral 

Lunar Rover Patrol (Moon Patrol) 32K 9.95 

Qiks (Qix) 32K 9.95 

Galagon (Galaga) 32K 14.95 

Keys of the Wizard (Medieval Adventure) 32K 9.95 

Wizard's Castle (Sorcery Adventure) 64K 19.95 

Ms. Gobbler (Ms. PacMan) 32K 9.95 

Froggie (Frogger) 32K 9.95 

Cubix (Q*bert) 32K 9.95 

MACHINE LANGUAGE GAMES A d$ d 



QIKS (QIX) 

This game is for all you "Qix" 
lovers! Trying to color' the 
screen while dodging sparks isn t 
as easy as it sounds. Fast action 
& great graphics make this an ex- 
citing game. Requires 32K and 
Joysticks. $g>95 



GALAGON (GALAGA) 

Wave after wave of spiraling 
attackers trying to capture your 
fighters. Score big time points 
during the challenge round. En- 
joy! Requires 32K and Joysticks. 



$14.95 

PENGON (PENGO) 

You are lost in a maze of slippery 
ice cubes, being pursued by 5 ice 
sealions. Line up the three power 
cubes for a quick escape. Re- 
quires 16K and Joysticks. 

$9.95 

LANCER (Joust) 
Lava pits, dragons & disappear- 
ing islands are just a few of the 
obstacles you must overcome. 
Then the awesome Dragon ap- 
pears! Requires 32K and joy- 
sticks. 

$14.95 

ADD 3% SHIPPING AND 
HANDLING, $3.00 minimum 

Foreign add 15%; $5 minimum. 

VISA 



LUNAR ROVER PATROL 

(MOON PATROL) 

Charged with the task of explor- 
ing the moon, you must dodge, 
destroy, or jump over the many 
hazards from the sky and terra-n. 
Good Luck and enjoy your mis- 
sion! Requires 32K and 
Joysticks. $9 95 

CUBIX (Q*BERT) 

Sixteen skill levels make this 3-D 
pyramid game fun for anyone! 
Sprink the snake is just one of the 
creatures to look out for. Re- 
quires 32K and Joysticks. 

$9.95 



ACCESSORIES 

C-10Cassettes 59* 

Diskette; SSDD 95 

Blank Rom Pak Project Box 95 

6809 Reference Card 1.95 

6809 Assembly Language Programming 
$19.95 

BASIC PROGRAMMING 
TRICKS REVEALED 
$14.95 

SPECTRAL 
ASSOCIATES 

3418 South 90th Street 
i Tacoma, WA 98409 r 

(206) 581-6938 



ICE CASTLES (CRYSTAL CASTLES) 

Maneuver through a spectacular 
3-D castle collecting treasure and 
avoid the bad guys by jumping 
over them or using elevators to 
move to new levels. Over 25 dif- 
ferent rooms to explore will pro- 
vide endless hours of fun. Re- 
quires 32K and Joysticks. 

$9.95 

MS. GOBBLER (MS. PACMAN) 

Four mazes on a black back- 
ground with bonus shapes make 
this the most challenging and fun 
maze game available. Eat an ener- 
gizer dot and watch the ghost 
run! Requires 32K and Joysticks. 

$9.95 



UNLOCK THE SECRETS OF BASIC! 

WITH THIS FULLY COMPLETE DISASSEMBLY OF THE 
COLOR BASIC ROMs 

All of the Innermost operating processes are exposed. This book Is an 
Indispensable tool for the programmer seeking a full, Indepth 
knowledge of BASIC. The BASIC UNRAVELLED SERIES will make it 
easy for you to write your own BASIC commands or modify BASIC for 
whatever purpose you desire. 

• FULLY COMMENTED (no holes) 

• ALL FCBs, FDBs AND FCCs DEFINED 

• COMPLETE MEMORY MAP (no missing 
spaces; everything defined) 

• PROGRAMMING TRICKS EXPLAINED 

• EASY TO UNDERSTAND 

• COVERS ALL ROM VERSIONS 

COLOR BASIC UNRAVELLED $14.95 

EXTENDED BASIC UNRAVELLED $14.95 

DISK BASIC UNRAVELLED $14.95 

COMPLETE 3 BOOK SET $32.95 



Reviews 

edited by J. Scot Finnie 
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Review-Ratings Key 

6 Unsurpassed 

5 Excellent 

4 Above Average 

3 Acceptable 

2 Needs Improvement 

1 . . Unsatisfactory 

Ed note— The overall ratings that appear in 
the review-rating graphs are an average of the 
ratings for all the categories rounded to the near- 
est quarter of a rating point. 



Applications Made Simple with Simon 



by Scott L Norman 



ease of use documentation 
performance j error handling | 



















































OVERALL RATING 4.25 



Application Software 



Simon is produced by Derringer Software, 
P.O. Box 5300, Florence, SC 29502-2300, 803- 
665-5676. It requires 64K and at least one disk 
drive. The program sells for $24.95. 



Simon is a copycat, a utility that 
"learns" any sequence of as many as 
6,400 keystrokes used to enter data into a 
Basic program, stores it in a disk file, and 
repeats everything at the touch of a single 
key. It can be used to automate programs 
that require long, infrequently changed star- 
tup sequences. Telecommunications pro- 
grams (especially those always used to log 
onto the same BBS or information utility), 
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data managers, and spreadsheets dedicated 
to a single data file are applications that will 
benefit from the utility. 

Simon was written by Dennis Derringer, 
author of the popular data-file manager Pro- 
Color-File (PCF). The two programs are nat- 
ural allies: PCF has no built-in facility for au- 
tomatically loading a specific file at startup, 
and its I/O (input/output) routines are written 
in Basic. Although Simon can be used with 
many other programs, this review focuses on 
its use with PCF. 

I use a dedicated copy of PCF to keep track 
of the manuscripts I write. Everyday record 
keeping requires a fair amount of typing just 
to get to the point at which I can do some- 
thing useful, such as adding a new record or 
updating an existing one. To do so, I have to 
pick a major task from PCF's main menu, 
specify the file name and the drive it is on, 
and press the enter key a couple of times to 
validate selections. Because I use a manu- 
script file for a year at a time and that file 
always resides on the same drive, this is a 
perfect application for Simon. Why keep typ- 
ing the same information if I can get the com- 
puter to do the job? 

There are two ways to build a file of key- 
strokes that Simon will be called on to repro- 
duce. The simplest method is to run through 



the Basic program you will be using while 
Simon "looks on" from a protected section of 
high RAM. When you have finished, the util- 
ity tells you where the last keyboard entry is 
stored. By using other address information 
found in the instruction pamphlet, you can 
save the commands as a machine-language 
file. The final step is to edit one or two lines 
in Simon's own Basic code so that its main 
menu will subsequently include the option 
of firing up your applications program. 

The second keystroke-programming tech- 
nique uses direct inputs. With this method, 
you type keystrokes in response to prompts 
from Simon; it is not necessary to run your 
applications program. This might save a lit- 
tle time, but you must be sure of the infor- 
mation the applications program will 
require. You'll also have to resort to a little 
trickery in order to record keystrokes that 
don't give printable characters. Command 
files constructed by direct input can be saved 
to disk with a single keystroke. 

For my applicaton, I chose the first of the 
two methods. With Simon running, I made 
all the standard PCF keyboard entries until I 
got to the menu from which you select differ- 
ent options such as add record, update rec- 
ord, and so on. Then I pressed the break key 
(which directs Simon to end the recording 



session) and saved the command file. Fi- 
nally, I reloaded Simon, inserted the names 
of the command file and applications pro- 
gram (as indicated in the documentation), 
and saved the edited version. 

Whenever I want to work on my manu- 
script file, I just load the disk containing Si- 
mon, PCF, and the data file and type RUN 
"SIMON". One keystroke gets me to Simon's 
main menu and another starts the ball roll- 
ing. Although it still takes the better part of 
a minute to load the entire PCF system and 
data files, at least my input and attention are 
no longer required. 

Simon can handle as many as 1 1 combi- 
nations of command files and applications 
programs. It would be a simple matter to re- 
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peat the process described above with other 
PCF data files in order to have the options for 
calling any one of them appear on Simon's 
main menu. 

Although the utility is quite flexible— it can 
pause in the middle of a command string to 
let you enter the current date, for example- 
there are some situations it cannot handle. I 
was disappointed to learn that I couldn't get 
it to enter the keystrokes needed to exit PCF 
after updating a file. (PCF's log-off sequence 
has always seemed too long to me.) The prob- 
lem seems to stem from the fact that there is 
no way to program Simon for the varying 
number of keyboard entries that might occur 
between the times that I take and relinquish 
control of the add/update menu. 



Other portions of PCF are accessible to Si- 
mon's control, however. With a little effort, it 
is possible to set up a system that indexes a 
file and automatically prints a variety of pre- 
defined reports. You might find this to be a 
very helpful routine. 

It is important to keep in mind that the 
scope of possible applications that you can 
use with this utility extends well beyond Pro- 
Color-File. Any application that uses INPUT, 
LINE INPUT, or INKEY$ statements for read- 
ing the keyboard is fair game for the program. 
Simon deserves the consideration of all those 
who want to automate some of their data-en- 
try chores without having to do anything as 
drastic as permanently modifying the code of 
their major applications programs. ■ 



Two Roads to Moscow 

by Peter Paplaskas 
HOT CoCo staff 



Panzers East! and Barbarossa are solitaire 
war-strategy games that share the theme of 
the Nazi invasion of the Soviet Union during 
World War U. Panzers East! is produced by The 
Avalon Hill Game Co., 451 7 Harford Road, Bal- 
timore, MD 21214, 301-254-5300, 800-638- 
9292. It comes on cassette, requires 32K, and 
sells for $25 plus $2.50 for shipping. Barba- 
rossa is from Ark Royal Games, Box 14806, 
Jacksonville, FL 32238, 904-786-8603. It re- 
quires 64K and Extended Color Basic, and 
sells for $30.95 on cassette and $33.95 on disk. 

■MHNHMMHHHNHNMMN^ 



Russia has eluded domination at the 
hands of famous conquerors over the 
centuries, and, in so doing, firmly upheld the 
old saw that tells us that history has an odd 
way of repeating itself. If you've studied that 
history, you'll know the significance of rein- 
forced supply lines and the onset of the dead- 
cold Russian winters to would-be conquerors. 

The invasion of Russia may well be the ulti- 
mate challenge to war strategists the globe 
around. Here are two games that offer the 
chance to recreate the German invasion of 
Russia during World War II. Will you fall into 
the same traps that foiled the strategies of 
such infamous conquerors as Napoleon and 
Hitler? Or have you learned enough from their 
mistakes to change the course of history? 



Panzers East! 

Panzers East! is written in Basic with a ma- 
chine-language file that contains the setup 
data for game play. It is surprisingly fast for a 
Basic program. The documentation that 
comes with this software consists of an easy- 
to-read and understand 12-page booklet that 
helps you plan strategies for battle. The docu- 
mentation also includes a multicolored game- 
board that is used instead of graphics. This is 
a drawback, but what the game lacks in 
graphics it makes up for with engrossing chal- 
lenges and sound testing of your applied strat- 
egies. The gameboard comprises the eastern 
European countries and the Soviet Union. 
The map also divides Russia into provinces, 
indicating their terrain type and military ob- 
jectives. Game play involves constant refer- 
ence to the map, which helps you to visualize 
where all fighting units are located. 

Panzers East! begins by asking you to select 
either the historical or the fully prepared sce- 
nario. The latter gives you the advantage of an 
extra week for your campaign and early rein- 
forcements. Your next decision involves 
choosing campaign objectives and priorities. 
These consist of isolating the Soviet Union 
along with the importance of industrial and 
agricultural areas. The option basically sets 
the difficulty level of the game. The higher the 
number you choose, the more numerous and 
difficult objectives become. Then you select 
the percentage of Luftwaffe (German air force 



of World War II) planes you want to commit in 
making a surprise attack during the first week 
of your invasion. You'll have only 2 1 weeks to 
meet your military objectives or face the con- 
sequences of a Russian winter. 

The main menu of Panzers East! offers a va- 
riety of options, from reviewing troops to allo- 
cating air power. The former consists of three 
commands for tracking your northern, central, 
and southern command groups. A total of 3 mil- 
lion troops are at your disposal .Themainforces 
are stationed in Poland, which spearheads the 
invasion. The northern and southern com- 
mand groups contain your remaining divi- 
sions. The movement option is used to 
transport infantry and mechanized units from 
one controlled area to another. The troop-allo- 
cation option regulates the number of troops 
that you use in battle . The assault option is used 
for activating invasion of specified enemy-con- 
trolled areas. In addition, the battle command 
is used to continue combat in a contested prov- 
ince. You can only invade a province from a 
province you already control. 

Calling for air power brings another menu of 
options to the screen. Air power is divided into 
three regions the same as the army units. As- 
signing air missions helps to cover troops dur- 
ing battles and to reduce Soviet military 
buildups in other provinces. A submenu is used 
to assign combat-air patrols over a province. 

The program prompts you to input battle 
intensity for each engagement. A high level 
of battle intensity will cause a Blitzkrieg 
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(lightning war), the German term for all-out 
mechanized surprise attack. It will also 
cause greater numbers of casualties on both 
sides. The key to choosing battle intensity 
rests in gauging the number of Russian 
troops, condition of supply lines, and kind of 
terrain. Poor supply lines will reduce the 
strength of your infantry and mechanized 
units by 75 percent. 

After battle intensity has been selected for 
each confrontation, the screen clears and 
text messages appear indicating the results 
of each battle. The approach of week 16 of 
fighting causes a change in the weather, 
which consists of heavy rains followed by 
muddy conditions; your attack strength is re- 
duced by 33 percent and your air power is 
partially grounded. By week 21, snow begins 
to appear, which results in half or your 
fighter planes being grounded and your sup- 
ply lines falling by one level. It's going to be 
a long, cold winter. 

Barbarossa 

Barbarossa is a high-resolution war strat- 
egy that offers exciting graphics and plenty 
of realism; it pulls no punches in providing 
challenging entertainment to war strate- 



" Panzers East! and 
Barbarossa 
are high-quality 
programs, and 

would be 
greatly valued 
by war-strategy 
buffs." 



gists. An historical footnote: The term Bar- 
barossa was the German High Command's 
code word for the invasion of the Soviet 
Union. 

Upon loading this program, you'll see a hi- 
res display of eastern Europe. Mountains, 
swamps, and rough terrain areas each have 



different colors assigned to them. Scrolling 
the screen vertically brings you closer to 
Moscow. It also allows you to look ahead to 
see where the Russians are entrenched. In- 
dustrial objectives are represented on screen 
by smokestacks, and other logical symbols 
appear designating the locations of air, infan- 
try, and armored units. The bottom of the 
screen holds four lines of text for unit 
strength, recognition, and moves allowed; 
supply level; time of year; and weather con- 
ditions. The invasion starts from Poland. 
Later, it is also launched from Hungary and 
Rumania, which were Axis allies. All fighting 
units are divided into northern, central, and 
southern groups. 

The object of Barbarossa is to accumulate 
38 victory points, and each city you conquer 
along the way has a different value. Moscow, 
Leningrad, and Stalingrad are the biggest 
prizes. 

Play of the game is based almost entirely 
on maintaining and acquiring supply points. 
The supply aspect is dubbed "bullets 'n' 
beans 'n' gasoline" by some war-gamers. In 
any real war, supply becomes the most im- 
portant aspect of employing an offensive. 
You start Barbarossa with more than 2,200 
supply points. Additional points accrue 



ORDER 



SfiUE 



nrnm firm 

ALL PRICES REDUCED TO 
CLEAR OUR INUENTORV. 

+ COLOR BANKBOOK $24.95 

• BOSINESS BANKBOOK 

SVSTEM ONE 

FOR ONE DISK DRIUE 

*54.95 

SVSTEM TWO 

FOR TWO DISK DRIUES 

*54.95 

# 50PER DISK UTILITY 

*14.95 

ROD $2. DO FDR SHIPPING i HRHDLIHG 
FLDRIDR RES. HDD 52 5 RLE 5 TRX 
□FFER EXPIRES DEC. 31, 1RBS. 
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8901 NU» 26 ST DEPT H 
SUNRISE, FL 33322 



10 DISKETTES 

FREE 0R 

i ■■■■ 20 C-20 CASSETTES 

A subscription to the 'Coco-Cassette' gets you a tape 
or disk full of 10 quality programs delivered to you by 
first class mail every month. The documentation included 
will help you run great utilities like 'Word Processor,' and 
'Budget Analyzer,' or enjoy great games like 'Frogjump' 
and Caterpillar Cave FOR AS LITTLE AS 46 CENTS 
EACH! 

* Limited offer * Subscribe for a year on cassette 
and receive 20 Free C-20 cassettes or subscribe for a 
year on disk and receive 10 Free 5 1 /4 single sided 
double density diskettes! 

Now available on disk! 
-PRICES- 




TAPE DISK 
1YR (12 ISSUES) 55 00 70°° 
6 MO (6 ISSUES) 30°° 40°° 
Single Copies 6 00 8 00 



★ 16K extended required M ' ch Res J!? n 4 * 

. c ~~>~~~*~~, «ais -i/ , Overseas ADD $10 to subscription 

★ Some programs require 32K, and/or disk and $1 00 t0 S| le |SSues 

★ Over 3000 satisfied customers 

★ Back issues available from July '82 PERSONAL CHECKS WELCOME! 
(over 280 programs to choose from!) 

★ Also available for Commodore 64. 

T & D Subscription Software 

, P.O. BOX 256-C . 

CS TONSi^n H0LLAND - Ml 4 9423 
(616)396-7577 
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when you capture cities. As well as having 
different victory-point values, cities also 
have varying supply-point values. Depletion 
of supply points is caused by movement, bat- 
tles, air strikes, and transferring of units 
from one geographic group to another. Leav- 
ing enemy units behind your lines will also 
consume points. 

Barbarossa's "Blitz" movement allows 
weaker units to attack. It is used primarily as 
an attempt to achieve a quick victory, though 
at a high cost of supply points. If you reach a 
negative value of supply points, you lose the 
Blitz option. 

Movements of fighting units are performed 
with commands that are common to all Ark 
Royal games. Russian units never move. 
However, if you leave stragglers behind in an 
unvanquished city, the enemy units will at- 
tack. The program also reinforces enemy po- 
sitions with new units, which has the effect 
of movement. The Russians can also reenter 
a city from which they've been ousted unless 
it is completely under Axis control. This can 
can wreak havoc on your supply lines if you 
don't secure each city as you advance. Com- 
bat occurs when you move your units to a 
position adjacent to any enemy unit. Attack- 
ing several units at once will prompt coun- 



terattack by nearby Russian units. Aspects 
of the game that affect combat (called com- 
bat modifiers) include unit strength, weather 
conditions, air power, availability and usage 
of the Blitz option, and position of attack. The 
manual states that attacking from above a 
target will give you a weighted modifier. 

Contrasting the Two Armies 

Both of these games offer the three neces- 
sary components of war-gaming: realism, ex- 
citement, and playability. Panzers East! 
employs a more realistic approach to using 
air power, which does not play as important 
a role in Barbarossa. The latter deploys three 
air squadrons with each regional army group 
as support. Only one command is devoted to 
this option. Panzers East! has a submenu 
that allows you to transfer and assign sqaud- 
rons to different provinces and send them on 
bombing missions. It even has a command 
for strafing enemy units. 

There are some other advantages to the 
Avalon Hill game. It is more realistic in its 
approach to garrisoning troops. Insuffi- 
ciently garrisoned provinces will fall easy 
prey to attack. It also provides you with the 
actual numbers of Soviet troops and equip- 



ment in a province before you attack, which 
simulates to some extent the scouting and 
reconnaissance information you might have 
in the field. Barbarossa tells you only the 
numbers of vanquished troops and equip- 
ment following an attack. This is important 
because as an attacking force, you should 
strive to have a two-to-one ratio advantage in 
numbers of troops. 

Barbarossa has a few special weapons of its 
own, however. It has a big advantage over 
Panzers East! in its hi-res graphics, which al- 
low players to view all forces at once instead 
of trying to visualize how they are positioned. 
The emphasis on supply problems is another 
advantage that helps to inject realism into the 
scenario. Panzers East! is based strictly on ob- 
jectives and attrition. The combat phase also 
adds a more realistic touch to Barbarossa be- 
cause you gain a slight advantage in attacking 
from above, a direction from which the enemy 
is less likely to be expecting you. 

Panzers East! and Barbarossa are high- 
quality programs, and either one would be 
greatly valued by war-strategy buffs. But 
when all is said and done, I find myself gravi- 
tating to the Ark Royal product. The graphics 
offer an enticing advantage, and the emphasis 
on supply lines seems more realistic. ■ 
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RAINBOW 

CE»""C*"OM 



COLOR CHARACTER GENERATOR /^\ 

A NEW DIMENSION IN COLOR COMPUTING 



RAINBOW 

Cl»"» 't « uo* 

Sf A! 



•Now includes a character generator and sample graphic space 
game at no evtra cost. 

•Full 224 text and graphic characters. Underline in all PMODES. 
Prints vertically. 

•All machine language» user transparent. Supports all BASICi 
EXTENOED BASIC and DISK commands. 

•Automatic loader recognizes 1 br , 32r & 64K computers. 

•Mix up to 5 character sires in 4 colors all on one screen. A 
total of 10 sizes available from 9*4 to 42*24 or 32*32 in 
vertical mode. 

•Use up to 4 defineable window screens of any sire. Also 
includes horizontally scrolling (crawling; one line screens. 

•Includes positive & negative screen dumps in 2 sizes for R/S t 
Epson 4 Gemini printers. ( Please specify) 

•Special Trace Delay can be used to debug programs one line at 
a time ( even graphics 

•A special printer control can output characters to the screen 
ft printer simultaneously. 

•A must for all color computer owners. Once you try it you 
won't write another program without it. 



INCENTIVE SOFTWARE 
(519) 6810133 



P.O. BOX 323 
STATION B 
LONDON ONTARIO 
CANADA N6A UW1 

MINIMUM REQUIREMENT 
TAPE - 2^.95 US or 
DISK - 27.95 US or 



P.O. BOX 7281 
PORT HURON 
MICHIGAN ^8301 
U.S.A. 

16K BASIC 
29.95 CDN 
32.95 CDN 







v/sa 


| MasterCard | 



Tape to Disk upgrade available for *8US or *10CDN. We pay 
..postage within US & CANADA on orders over $20, otherwise 
please add *1. Other countries please add *2. Charge orders 
please add * 1 . 



Tell them "I saw it in HOT CoCo.' 
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The Deluxe RS-232 Program Pak 

by Bobby Ballard 
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OVERALL RATING 2.75 



Hardware 



The Deluxe RS-232 Program Pak is manu- 
factured by Tandy Corp. (catalog no. 26-2226), 
1 400 One Tandy Center, Fort Worth, TX 761 02. 
It requires 1 6K, either Extended Color Basic or 
OS-9, a DB-25 connector ribbon cable, and a 
telephone line. It sells for $79.95. 

It should be made clear from the start: This 
is two products in one. I like one and not 
the other. The Deluxe RS-232 Program Pak 
is designed to add a standard RS-232 port to 
the Color Computer. If you have a disk sys- 
tem and/or ROM-pack-based telecommuni- 
cations software, you'll need a multiple 
ROM-pack interface. 

The Program Pak is hardware and software 
combined, called "firmware" as a market- 
place buzzword. The hardware part of the 
product is the ROM pack, the port itself, and 
its supporting circuits. The software is con- 
tained on a wave-soldered EPROM (erasable, 
programmable read-only memory) chip; it 
does not have to be used. To invoke the built- 
in software, you type EXEC &HC000. 

The software part of this product has some 
significant drawbacks. It is incompatible 
with many download protocols, including 
CompuServe's, and assumes that you are 
only going to transfer files between Color 
Computers. If all you own is ROM-pack ter- 
minal software, then you might opt to use the 
Program Pak's on-board software. But you 
could be more frustrated than satisfied with 
that arrangement; the program is awkward 
to use and requires extensive maneuvering 
to download software. 

The only saving grace of the software part 
of the Program Pak is the fact that you can 
directly transfer programs from one CoCo to 
another and then run them immediately. But 
without a backup, such software could 
crash, and your only recourse would be to 
send or receive it again. My advice is not to 
buy this product for its software. 

There is good news and bad news about 
the hardware aspects of the Program Pak. 
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The good news is that the device is a wel- 
come addition to the CoCo hardware market. 
No longer must you be restricted to bit-bang- 
ing through a four-wire port. This product 
supports transfer at as high as 19,200 baud. 
And changing parameters while on line is as 
easy as POKEing an address with the appro- 
priate number. 

The actual heart of the Program Pak is a 
Synertek 6551 ASCI (asyncronous-syncron- 
ous communications interface) that includes 
an on-chip baud-rate generator, program- 
mable interrupts and status register, false- 
start bit detection, and echo mode. It is mem- 
ory mapped to addresses &HFF68 to &HFF6B. 

One of the main reasons that Tandy has cre- 
ated this package is for use with OS-9. In a 
sense, OS-9 was incomplete before the Pro- 
gram Pak was released. The whole concept of 
multitasking under OS-9 was limited by the 
availability of only one port on the Color Com- 
puter. With the release of this package, Tandy 
upgraded OS-9 from version 1.0 to 1.01. The 
new version contains a driver for the ASCI in 
the Program Pak. If you own OS-9 and want 
all its capabilities, this product is for you. It 
frees up your printer port and gives you a 
standard serial port, to boot. 

"The Deluxe RS-232 
Program Pak 
is two products 
in one. 
I like one 
and not 
the other." 



I also recommend using the Program Pak 
hardware for running a BBS. It allows more 
complete control of all the RS-232 lines, an 
important feature for keeping hackers off the 
line and out of your files. Check the compati- 
bility between this device and your BBS soft- 
ware before you buy it. Similarly, some 
terminal packages can make use of the Pro- 
gram Pak while others cannot. Check with 
software vendors about this before you buy. 
Older versions of software packages are more 
likely to be incompatible. When I asked 




The Deluxe RS-232 Program Pak from Tandy 



around the marketplace, I found that some of 
the manufacturers of terminal programs that 
are currently incompatible with the Program 
Pak already have upgrades in the works. 

A few paragraphs back I mentioned some 
bad news. Here it is: Not all of the standard 
RS-232 lines are supported or even con- 
nected in the Program Pak. Only nine lines 
are brought out on the DB-25 connector. 
They are as follows; 



Pin No. 


Signal 


1 


Frame ground 


2 


Transmit data 


3 


Receive data 


4 


Request to send 


5 


Clear to send 


6 


Data set ready 


7 


Signal ground 


8 


Carrier detect 


20 


Data terminal ready 



Another drawback to the Program Pak is 
the quality of its documentation. The man- 
ual skimps on technical information and 
some of its charts are downright confusing. 
Although it does provide some examples of 
how to program the device in Basic and ma- 
chine language, there is no mention of OS-9 
in this vein. The manual also does not cover 
the product's support of even Tandy modems. 

Despite all the negative aspects of the Pro- 
gram Pak this review has pointed out, I rec- 
ommend the device as a hardware addition if 
you don't mind the missing leads. And if you 
are interested in multitasking with OS-9, 
you'll want to strongly consider this product. 
When you boil it down, it's best to steer clear 
of the Program Pak if you are basically just 
looking for a software package. But as a hard- 
ware device, it has some important features to 
recommend it. The important thing is to 
make sure that its capabilities fit your appli- 
cation perfectly before you buy. ■ 



You'll Like Bugs-ll 



by Richard Ramella 
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Games 



Bugs-ll is marketed by Four Star Software, 
P.O. Box 730, Streetsville, Ontario, L5M 202, 
Canada, 416-858-STAR. It requires 64K and 
Extended Color Basic and sells for $19.95 on 
cassette and $26.95 on disk. The prices in Can- 
ada are $24.95 and $32.95, respectively. 



E 



arth has been invaded by giant, intelli- 
gent bugs that treat humans like ani- 



mals, penning them in and killing them for 
sport. Luckily, there is a way to fight back! 

This is the premise of an arcade-game de- 
light that combines arcade action with a 
touch of adventure. Bugs-II was written by 
Dave Shewchun and Roland Knight. It has 
visually appealing screens, quick graphics, 
good program responses to player direction, 
and hordes of small bugs that show great in- 
telligence in tracking down and obliterating 
the "land bug" controlled by the player. The 
game also offers both joystick and keyboard 
control. 

Players must travel through the maze-like 
rooms and corridors of a subterranean net- 
work. Though a score is given for each play, 
the real challenge is to win the game— and ful- 
fill the adventure— by disabling the reactor at 
the heart of the structure. Along the way there 
are enemy bugs that will try to destroy the 
player's icon by collision or projectile, though 
a player can fire back and take evasive meas- 
ures. There are six maze levels. Each has a 
transport room that can be breached only by 
finding a missile and firing it, and it must be 



done while fending off attackers. 

Bugs-II offers four play levels that you se- 
lect as the game begins. You receive five 
"men" to start, and the game ends when 
they are lost. You can, however, receive extra 
turns by scoring points. The play panel 
members (my children) who helped me test 
Bugs-II have managed to penetrate the mys- 
teries of about half of this program. But there 
are things left to consider, such as the matter 
of finding objects that contain the word key 
and using them appropriately. 

My panel and I liked Bugs-II because its 
elements of mystery lifted it out of the cate- 
gory of the pure maze chase game. It must 
be a success because it has been difficult to 
get any where near my CoCo since the pro- 
gram arrived. One of the reasons for this is 
that the authors have done a fine job on the 
graphics. And there is a hallmark of quality 
about every aspect of the game, including 
the hypnotic title sequence, the zip-zap 
sounds, bright colors, nice animation, and 
logic of play. If you like arcade games, 
Bugs-II won't fail to intrigue you. ■ 



DISKETTES AND COCO SOFTWARE 

5.25" DISKS EACH 10-PACK $12.50-SSDD/DSDD $20-DSQD 

American-made, guaranteed 100% quality, with Tyvek jackets, hub rings, and labels 

CMODEM TELECOMMUNICATIONS PROGRAM $100-FLEX,OS/9 
OBJECT-ONLY versions: EACH $50-FLEX,OS/9 

menu-driven with terminal mode, file transfer, MODEM7, XON-XOFF, etc. 
for COCO and non-COCO; drives internal COCO modem port up to 2400 Baud 

SUPER SLEUTH DISASSEMBLERS EACH $99-FLEX $101-OS/9 
OBJECT-ONLY versions: EACH $50-FLEX,OS/9,COCO 

interactively generate source on disk with labels, include xref, binary editing 

specify 6800,1,2,3,5,8,9/6502 version or Z80/8080.5 version 

OS/9 version also processes FLEX format object file under OS/9 

COCO DOS available in 6800,1,2,3,5,8,9/6502 version (not Z80/8080.5) only 

CROSS-ASSEMBLERS EACH $50-FLEX,OS/9 ANY 3 $100 ALL $200 

specify for 1 80x,6502,6801 , 6804, 6805, 6809,Z8,Z80, 8048, 8051 ,8085,68000 
true, modular, free-standing cross-assemblers in C, with load/unload utilities 
8-bit (not 68000) sources included with all cross-assemblers (for $200) 

DEBUGGING SIMULATORS EACH $75-FLEX $100-OS/9 
OBJECT-ONLY versions: EACH $50-COCO FLEX.COCO OS/9 

specify for 6800/1, (14)6805, 6502, 6809 OS/9. Z80 FLEX 

ASSEMBLER CODE TRANSLATORS FOR 6502, 6800/1, 6809 

6502 to 6809 $75-FLEX $85-0S/9 

6800/1 to 6309 and 6809 to position-independence $50-FLEX $75-0S/9 

FULL-SCREEN FLEX TSC XBASIC PROGRAMS with cursor control 
DISPLAY GENERATOR/DOCUMENTOR $50 w/source, $25 without 
MAILING LIST SYSTEM $1 00 w/source, $50 without 

INVENTORY WITH MRP $1 00 w/source, $50 without 

TABULA RASA SPREADSHEET $100 w/source, $50 without 

DISK AND XBASIC UTILITY PROGRAM LIBRARY $50-FLEX 

edit disk sectors, sort directory, maintain master catalog, do disk sorts, etc. 

Computer Systems Consultants, Inc. 
1454 Latta Lane, Conyers, GA 30207 
Telephone 404-483-1717 or 4570 

Most programs in source: give computer, OS, disk size. 
Contact us for full catalog, dealer, and services info. 
25% off multiple purchases of same program on one order. 
VISA and MASTER CARD accepted; US funds only, please. 
Add GA sales tax (if in GA) and 5% shipping. 

FLEX tm Technical Systems Consultants; OS/9 tm Microware; COCO tm Tandy. 



The complete disassembly 
of the Color Basic ROMs 




EASY TO UNDERSTAND • COVERS ALL ROM VERSIONS 
COMPLETE MEMORY MAP--No missing spaces, everything 
is defined • PROGRAMMING TRICKS EXPLAINED 
ALL FCBs, FDBs and FCCs defined 
FULLY COMMENTED--No holes 



COLOR BASIC UNRAVELLED 
EXTENDED BASIC UNRAVELLED 
DISK BASIC UNRAVELLED 
SET OF 3 UNRAVELLED BOOKS 



old 

19.95 
19.95 
19.95 
49.95 



SPECIAL 
NOW 

$14.95/ea. 

... $34.95 

All of the innermost operating processes are exposed. 
This book is an indispensable tool for the programmer 
seeking a full, in-depth knowledge of Basic. The Basic 
UNRAVELLED SERIES will make it easy for you to write 
your own Basic commands or modify Basic for whatever 
purpose you desire. 

SPECTRAL ASSOCIATES 1-206-581-6938 
,. 3418 South 90th Street Tacoma, WA 98409 

Shipping and Handling: United States add 3 0 b . $2.00 minimum. Canada add 
6°o. $3.00 minimum. Foreign add 15%. $5 00 minimum No C O D orders. 
Washington residents add 7 8°o sales tax 



January 1986 HOT CoCo 25 



Getting to the Bottom of 

The Complete Rainbow Guide to OS-9 



by Jeffrey S. Parker 
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OVERALL RATING 5.50 



Books 

The Complete Rainbow Guide to OS-9 by 
Dale L. Puckett and Peter Dibble is published by 
Falsoft Inc., P.O. Box 385, Falsoft Building, 9529 
U.S. Highway 42, Prospect, KY 40059, 502-228- 
4492. The 41 7 -page softcover was published in 
1985 and sells for $19.95 plus $1 for shipping. 
Falsoft also publishes a two-disk companion 
software set that contains all the programs 
listed in the Guide to OS-9. The set sells for $31 
and was not examined for this review. 



It started quietly a few years ago when 
Tandy began touting a new operating sys- 
tem that let you use the full 64K capabilities 
of the CoCo 2. OS-9 was one of the most ex- 
pensive packages on the market for the Color 
Computer at that time. It offered an assem- 
bler, an editor, filing capabilities, and just 
about everthing you could want for a disk- 
based system. 

The only problem was, if you were like 
most CoCo owners, you barely made it 
through the first book (purple) of instruc- 
tions. The much more technical language in 
the second book (red) probably stumped you. 
And more than likely, you found that you 
had a lot of unanswered questions. What is a 
device driver, anyway? How do the editor 
and assembler work? How can you use two 
computers at once? Why would you want to? 
When the questions started to pile up, back 
went the book into the binder along with the 



master disk and the package ended up on a 
dusty shelf. 

Enter The Complete Rainbow Guide to 
OS-9, by Dale L. Puckett and Peter Dibble. It 
is the most important book published for OS- 
9 to date. Written in a plain, nontechnical 
style, it is an excellent guide for helping CoCo 
users find their way through its complicated 
subject matter. 

The Guide to OS-9 is a long book and is not 
recommended for casual readers. You need 
little or no prior experience with OS-9 to use 
this book, but read its chapters carefully, tak- 
ing time to be sure you understand the ma- 
terial they present. If used correctly, it can be 
an invaluable asset in sounding out OS-9's 
deep waters. 

The text is divided into six sections or 
parts, beginning with an introduction and 
brief history of the operating system and pro- 
gressing through each aspect of its usage. 



m mm DAISY WHEEL 

UffLJ New Smith Corona L-1000 

True letter quality printer for less than the cost ot an 
office typewriter' Priced $500 less than other popular 
daisy wheel printers' 

SALE PRICE: 



$249 




FEATURES. 

if Friction feed 
^ 15 cps 120 wpm 
^ Changeable daisy wheels 
^ Parallel or serial interface 
if Compatible with R/S. Apple, etc 

SUNLOCK SYSTEMS we accept 
210 Connor Rd. MasterCard. 
Mechanicsville, Va. 231 1 1 visa and coos 

ADDITIONAL PRINTER SPECIALS 



Okidata ComrexCRII $299 CItoh 7500 $239 
ML83 $499 Comrex III 399 CItoh F1040 849 
ML192 369 Star SG10 239 CItoh 1550 449 
ML84 649 Star P. TYPE 319 Citoh8510SP 379 
ML193 519 Star SR 10 499 Cannon 1092 389 
ML93 509 Star SD 10 349 Citizen M10 279 
ML182 239 Star SG 15 399 Tshiba 351 1099 

TO ORDER CALL TOLL FREE 800-368-9191 

In Virginia call 804-746-1600 



Epson 
DX10 $249 
LX80 229 
L1500 899 
FX85 359 
FX185 499 
JX 80 499 



Professional 
handicapping systems 



35f 



PRESE NTED BY PROFESSOR JONES 



GLD. Thoroughbred "Gold" Edition™ 

A Full featured thoroughbred analysis designed for the professional and 
the serious novice $159.95 complete 

EGLD. Enhanced "Gold" Edition™ 

' Gold Edition with complete Master Bettor™ system integrated onto the same 
disk This powerful program will transfer all horses and scores to the bet analysis 
with a 'single keystroke (Master Bettor™ included) $199.95 complete 

GLTD. Limited "Gold"™ 

Enables Professional Handicappers to assign specific values to the racing var- 
iables 'they'' feel are important Create program weight based on a particular 
track and fine tune it for maximum win percentage This program is designed 
for "ease of use' The user needs no programming experience. 

(contains Integrated Bettor™) $299.95 complete 

GD. Gold Dog Analysis™ 

The "ONLY" professional greyhound analysis available that evaluates ALL 
variables $149.95 w/mtegrated Bettor $199.95 

Limited Version $299.95 



IBM™ 
APPLE™ 
TRS-80™ 
CPM™ 
COMMODORE™ 



NBA. Basketball™ 



MHH. Master Harness 
Handicapper™ 

Professional software designed to provide a thorough analysis of all trotter and 
pacer races in North America and Canada. $159.95 complete 

$199.95 w/lntegrated Bettor Limited $299.95 

Professor Pix Football™ 

Complete STATISTICAL ANALYSIS on Data Base allowing Designated previous 
games to be evaluated Statistical Series $99.95 

w/Win-Loss Power Ratings $149.95 

NBA $99.95 w/coilege $129.95 
w/power ratings $149.95 

LOT. Lottery Analysis™ 

Statistical comparison program designed to detect subtle patterns in winning 
numbers and digits Lottery (3-4 digit) $79.95 

w/Lotto (Max. 99 Digit) $99.95 
PC-3 Portable Computer (4k) with choice of Thoroughbred. Grey- 
hound or Trotter™ $249.95 (Includes portable computer and program ) 
M-100 Portable (24k) w/choice of Thoroughbred. Greyhound, or Trotter 
$649.95 (Includes portable computer and program ) 



BROCHURE AVAILABLE 



Jones 



Prof. 

1940 W. State St. 
Boise, ID 83702 



MZ3M 



48 HR. FREE 
SHIPPING 



TQT CALL 
208-342-6939 



TERMS FREE SHIPPING ALL 
SOFTWARE Add $6 00 hard- 
ware / $6.00 C.0.D / UPS Blue 
$6 00 / Out of Country $9 00 / 
ID Residents 4% / 3 weeks per 
sonal checks / Cash price only, 
add 2°/o Visa. MC / Prices sub 
ject to change. 
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The book's structure is comprehensive; each 
section builds on the one that preceded it. 
This means that unless you have prior ex- 
perience with OS-9, you should read the 
chapters in order. The following are descrip- 
tions of each section: 

Part I: "The Big Picture" gives an overall 
view of the system and its compo- 
nents. 

Part II: "Hands On" provides a detailed 
step-by-step hands-on section in 
which you begin using OS-9. 

Part III: "Touring the OS-9 Command Set" 
teaches how to use the different 
OS-9 commands. 

Part IV: "Programming Languages" ex- 
plores toolkit utilities, the assem- 
bler, the editor, C, Pascal, and 
Basic-09. 

Part V: "Toward the End of the Rainbow" 
describes sophisticated techniques 
for using the various components 
that make up OS-9. 

Part VI: "Pot of Gold" covers detailed 
memory management and con- 
tains seven workshops, an appen- 
dix composed of OS-9 memory 
maps, and two indices. 



Although the Guide to OS-9 is generally 
easy to understand, the text does become 
onerous in a few places, for example: ". . .If 
OS-9 was able to read the byte you requested 
it will return from the I$Read service request 
with the carry bit in the 6809 clear. ..." But 
such wordings are infrequent; in most cases 
obscure or confusing terms and phrases are 
explained in plain English. 

In their desire to include as much infor- 
mation as possible, it seems that the authors 
have bitten off more than they can chew by 
attempting to cover "high-level program- 
ming languages." The best the reader can 
hope for in this area is to gain a feeling of 
Basic-09, C, and Pascal; each of these pro- 
gramming languages requires a textbook all 
its own. Nevertheless, this is an advantage in 
some ways because the book provides a good 
introduction to how OS-9 interacts with 
these languages without assuming that you 
to know them already. The authors do, how- 
ever, expect you to have some familiarity 
with Assembly language. 

The Guide to OS-9 displays small, line- 
drawing characters in its margins to liven up 
the pages. However, they do not offer the 
kind of helpful suggestions that similar char- 
acters in Tandy's manuals do. The book is 



well crafted and printed, containing very few 
typographical errors and none that is likely 
to lead to misunderstanding. But the pub- 
lishers missed the boat on integrating their 
graphics, which might have been used more 
fully to clarify the text. 

Two areas of this book are notable for their 
excellence. The examples and workshops 
are well integrated with the text and really 
help to present another way for the reader to 
understand. The two indices, one a general 
index and the other an index of the com- 
mands and keywords, are thorough and 
cross referenced. This means that it is easy 
for the reader to look up the meaning of a 
forgotten term or find the definition of an un- 
familiar command or acronym. 

Although it has a couple of shortcomings, 
overall The Complete Rainbow Guide to OS-9 is 
an excellent manual for the OS-9 user. I have 
more than two years' experience with OS-9, 
but still found concepts in this book that were 
new to me. The authors have put together a 
readable, understandable, easy-to-use man- 
ual for current and prospective OS-9 users. 
Reading this book does not guarantee that 
you'll become an OS-9 programmer, but it's 
probably the best way to get started. I recom- 
mend it without reservation. ■ 



Robotize Your CoCo with EMC 




YOU COULD 
BUILD THIS COCO 
POWERED ROBOT! 

AND MORE 

Send For Free Brochure 
Florida Residents Add 5% Tax 
$3.00 Shipping & Handling 



Our unique expansion hardware enables you to create 
a versatile automated control system. 
All EMC boards come fully assembled and computer tested. 

Model 100 Parallel Port (PIA) $39.95 

Features: Two 8 Bit Bi-Directional Ports, 4 Control Lines, 
Sample Software Provided 

Model 200 Buss Driver $89.95 

Features: TTL, Fanout of 10, 2 Card Slots and Flexible 
Ribbon Buss Provided. Additional Connectors 
Available. 

Model 400 Mother Board $44.95 

Features: 4 Slots, 5 Gold Pin Connectors, PC Board, for all 
Non Dedicated Boards. 

Model 500 Motor Control AMP $29.95 

Features: TTL Compatible, LED Direction Indicators, Drives 
DC Motors 500 MA Max at 12 VDG. 



ELECTRONIC MOTION CONTROL 

P.O. Box 17271 • ARPT Station 

Clearwater, Florida 33520 
813-896-8295 or 813-536-1694 



SPECTRAL ASSOCIATES 

TALKING GAMER 
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$24.95 for tape 

SYZYGY (siz-ih-gee) 

The Ultimate Graphics Adventure! You 
are trapped aPoard the Deathstar 
starship and have had a near fatal en- 
counter with the Dark Lord, Darth 
Vader. Your strength is all Put gone 
and you know that Vader is some- 
where near. Your only hope is to lo- 
cate the mysterious Glowing Emerald, 
hidden deep within the Deathstar, 
guarded Py the Dark Lord himself. 
Syzygy has over 250 graphic pictures 
and 300 locations with an assortment 
of treasures, weapons and hazards. 
These allow a virtually endless array of 
different scenarios and complex situa- 
tions designed to give the user hour 
upon hour of entertainment and ad- 
venture. GraP your light saPer and 
may the Force Pe with you! 32K re- 
quired. 

CALL 1 -206-58 1 -6938 to place your Visa or MasterCard order today! 
SEND your order with check or money order (sorry, no C.O.D.) to: 

SPECTRAL ASSOCIATES 
34 1 8 South 90th Street 
Tacoma, Washington 98409 

AH orders shipped in two business days. Allow two weeks for delivery. 
Shipping & Handling: 

United States add 3°/o; $2 minimum. Canada add 6%; $3 minimum. Foreign 
add 1 5%; $5 minimum. Washington State residents add 7.8% sales tax 



S27.95 for disk 

SPACE TREK 

Realistic, hi-res 3-D graphics put you in 
the captain's seat of the Federation's 
most powerful starship. Work your way 
from sector to sector by fighting the 
deadly aliens which are trying to de- 
stroy you. A long range scanner, front 
view screen, phasors, photon torpe- 
dos, mines, shields, star bases and 3-D 
asteroids are only a few of the many 
features which make Space Trek the 
most realistic space Pattle simulation 
ever developed. Space Trek will talk 
when you have a Tandy Speech/ 
Sound cartridge, Colorware's Real 
Talker or Spectrum Projects' Voice Pak 
installed. Just plug one in before load- 
ing the program and fasten your seat- 
Pelt for the ultimate in simulations for 
the Radio Shack Color Computer. 32K 
and joysticks required. 
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Introducing The "Super Smart" 

DATA PACK II 
TERMINAL COMMUNICATIONS SOFTWARE 

Also Supports The PBJ 80 Column "Word Pak", Deluxe RS-232 Pak, 
Parallel Printer Card and PBJ 2SP Pak 

"FEATURES" 



% 



No Lost Information When Using Hi-Resolution Display On Line 

ASCII Compatible File Format 

Full Text Buffering 

Terminal Baud Rates 300 to 9600 

Automatic Word Wrap Eliminates Split Words 

Full Half Duplex 

Automatic File Capture 

Programmable Word Length. Parity and Stop Bits 

Save and Load Text Buffer and Program Key Buffers to Tape 

or Disk 

9 Hi-Resolution Display Formats, 28 to 255 x 24 
True Upper lower Case Display 
Kill Graphics Option for an Extra 6K 
Supports Line Break 



Freeze Display and Review Information On Line 

Send Files Directly from Buffer or Disk 

Full Disk Support for Disk Version 

Send Control Codes from Keyboard 

Separate Printer Baud Rates 110-9600 

Display on Screen or Output Contents of Buffer to Printer 

Automatic Memory Sense 16-64K 

9 Programmable Function Key Variable Length Macro Buffer 
Programmable Prompt Character or Delay to Send Next Line 
Programmable Control Character Trapping 
Programmable Open /Close Buffer Characters 

■ Automatic Key Repeat For Editing 

1 Program and Memory Status Displays 



TAPE 

$ 34.95 



"The Source" 

has arrived! 



Starship Falcon 

Graphics Adventure Game 



The Source brings the cost of Disassembler and Assembler Source code 
generation down to Earth. 

Now you can Disassemble Color Computer machine language programs and generate 
beautiful, Assembler Source Code for a fraction of the cost of other Disassembler/Source 
Generator programs. 

The Source has all the features and functions you are looking for in a Disassembler. 

• Automatic label generation. 

• Allows specifying FCB, FCC and FDB areas. 

• Disassembles programs directly from Disk. 

• Supports multiple origin disk files. 

• Output complete Disassembled listing with labels to the Printer. Screen or both. 

• Generates Assembler compatible source files directly to disk. 

• Generated source files are in standard ASCII format that can be edited by most word processors. 

• Built in Hex/Ascii dump/display to help locate FCB, FCC and FDB areas in a program. 

• Fast Disassembly mode for testing & checking FCB. FCC and FDB mapped areas. 

• Built in Disk Directory and Kill file commands. 

• Menu display with single key commands for smooth, Easy, almost foolproof operation. 



32K Disk $34.95 




Six months ago a terrorist group demanded to be designated the rulers of 
Alpha Sigma III, under the threat of world starvation on the planet Earth. The 
Federation denied their demands, so they released a biological weapon which 
has destroyed all known edible plant species from throughout the known gal- 
axy. To date no plant life has been able to survive on Earth. Recently, Federation 
undercover agents have reported a story told by a roving space trader, of a 
planet with abundant edible plant life. These plants have a reputation of being 
able to survive in all climates and in fact, are supposed to grow at an incredible 
rate. The Federation is desperate! If Earth's food source is not replaced soon, 
the Federation will have to evacuate all animal and Human life. Your mission 
is to go to the planet Zephyr and obtain the seed of these plants and return to 
Earth. Several Federation agents have been sent to obtain the seeds and none 
has returned! Can you get the seed and survive??? GOOD LUCK! 



32K Disk $21.95 
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Screen Enhancement Program Comparison Chart 
PROGRAM FEATURES HI-RES II HI-RES I BRAND X 



NEW 



OLD 



NEW IMPROVED VERSION 

- UP TO 85 CHARACTERS PER LINE 
READABILITY 

- ADJUSTABLE AUTOMATIC KEY REPEAT 

- PROPTECT 123 SCREEN LINES 

- CONTROL CODE KEYBOARD 

• FULLY BASIC COMPATIBLE 

• DISPLAY FORMATS OF 28 to 255 CHARACTERS PER LINE 

• FULL 96 UPPER/LOWER CASE CHARACTERS 

• MIXED GRAPHICS & TEXT OR SEPARATE 
GRAPHIC & TEXT SCREENS 

• INDIVIDUAL CHARACTER HIGHLIGHTING 

• REVERSE CHARACTER HIGHLIGHT MODE 

• WRITTEN IN FAST MACHINE LANGUAGE 

• AUTOMATIC RELOCATES TO TOP OF 16/32K 
•AUTOMATICALLY SUPPORTS 64 K of RAM WITH RESET CONTROL 

• REVERSE SCREEN 

• ON SCREEN UNDERLINE 

• DOUBLE SIZE CHARACTERS 

• ERASE TO END OF LINE 

• ERASE TO END OF SCREEN 

• HOME CURSOR 

• BELL TONE CHARACTER 

• HOME CURSOR & CLEAR SCREEN 

• REQUIRES ONLY 2K OF RAM 

• COMPATIBLE WITH ALL TAPE & DISK SYSTEMS 



HI-EFS II SCREEN UllLliy 

Jouble Hehht EE5EF 

Protect froH 1 to ZTscfTen I 1 r, 
nil Cursor Control F'.mcti 

se ch 



urn U 

HT 

us tab 



lengths 
Characters p 
2 Characters p 
} 6 Characters pe 
•12 Characters per 
51 Characters per 
<>1 Char acter s t»t 1 1 
85 (Jwr*ct»t-s m I ir* 



255 characters 



Yes 
Yes 
Yes 
Yes 
Ves 
Yes 

Buff/Biack 

Yes 
Yes 

Yes 
Yes 



$94.95 $OQ95 

^ *I TAPE J DISK- 

ALL ORDERS SHIPPED FROM STOCK 
ADD $2.50 POSTAGE 

comp 

5566 Ricochet Avenue Las Vegas, Nevada 89110 

(702) 452 0632 



Upper/Lower case characters Yes 
Mixed Text and Graphics Yes 
Separate Text & ( >raphics 
Print @ fully implemented 
Print @ on all line lengths 
Different line lengths 
Automatic Kev Repeat 
Adjustable Kev Repeal 
Auto Repeat Disable 
Erase to end of line/screen 
Home Cursor 
Solid or Blinking Cursor 
CLS command supported 
XY Coordinate Cursor 

Positioning 
Double Size Characters 
Individual/Continuous 

Highlighting 
On Screen Underlining 
Clear Key functional 
16.32 & 64 K Supported 
Green or Black Background 

Color 

Dual Character sets for 

Enhanced 64 and 85 

Characters per line display Yes 
Protected Screen Lines 

(programmable) 1 to 23 

Full Control Code Keyboard 

for Screen control directly 

from the keyboard Yes 
Programmable Tab Character 

Spacing . Yes 
Full Screen Reverse Function Yes 
Switch to & from the Standard 

16 by 32 Screen for full 

comparability Yes 
On Error Goto Function No 
Extended Basic Required No 
All Machine Language Program Yes 
RAM Required in addition to 

Screen RAM 2K 
Program Price (Tape) $24 95 



Yes 
Yes 

Yes Yes 
Yes Yes 
Yes Yes 
28 to 255 (9)28 to 255 (9) 



Yes 
No 
No 
Yes 
Yes 
No 

Buff/Black 

Yes 
Yes 

Yes 
Yes 



Clear/LkeysClear key 



Yes 
Yes 



Yes 



Yes 
Yes 
No 
Yes 

51 only 

51 only (1) 

Yes 

No 

No 

Yes 

Yes 

Yes 

Buff/Black 

No 
No 

No 
No 
No 
Yes 



No 
No 



No 
Yes 



No 
No 
Yes 
Yes 

2K 

$1995 



No 
No 



No 
Yes 
Yes 
Yes 



2K 

$29 95 



VISA. MASTERCARD AND CO D. ACCEPTED 



"The CBASIC Compfler" 

Now anyone can create fast efficient Machine Language Programs 
Easily and Quickly without having to use an Editor/ Assembler 



CBASIC is a fully integrated, easy to use Basic program Editor and Compiler package CBASIC is 99% syntax compatible 
with Disk Extended Color Basic programs, so most Basic programs can be loaded and compiled by CBASIC with little 
or no changes required The compiler is an optomizing two-pass integer Basic compiler that can convert programs written 
in Disk Extended Color Basic into 100% pure 6809 Machine Language programs which are written directly to disk in a 
LOADM compatible format 

The programs generated by the compiler can be run as complete stand alone programs A built-in linker/editor will 
automatically select one and only one copy of each subroutine that is required from the internal run-time library and insert 
them directly in the program This eliminates the need for cumbersome, often wasteful separate "run-time" packages. 

CBASIC WAS DESIGNED FOR BOTH 
BEGINNING & ADVANCED USERS 

CBASIC is a Powerful tool for the Beginner or Novice programmer as well as the Advanced Basic or Machine Language 
programmer The Beginner or Novice programmer can write and compile programs without having to won-y about Stack 
Pointers, DP registers, memory allocation, and so on, because CBASIC will handle it for you automatically. All they have 
to do is write their programs using the standard Basic statements and syntax. For the advanced Basic and Machine 
Language programmers, CBASIC will let you take command and control every aspect of your program, even generating 
machine code directly in a program for specialized routines or functions 

CBASIC adds many features not found in Color Basic, like Interrupt, Reset, and On Error handling. It also has advanced 
programming features that allow machine level control of the Stack and Direct Page registers, variable allocation, automatic 
64K RAM control, program origin and even multiple origins. It can even have machine language code generated within 
a program that executes just like any other Basic program line 

FULL COMMAND SUPPORT & SPEED 

CBASIC features well over 100 Basic Commands and Functions that fully support Disk, Tape, Printer and Screen 1/ 
O It also supports ALL the High and Low Resolution Graphics, Sound, Play and String Operations available in Extended 
Color Basic, and all with 99 9% syntax compatibility 

CBASIC is FAST Not only will CBASIC compiled programs execute 10 to 1000 times faster than Basic, but the time 
it takes to develop a CBASIC program versus writing a machine language program is much, much shorter. A machine 
language program that might take several months to write and debug could be created using CBASIC in a matter of days 
or hours, even for a well experienced machine language programmer We had a report from a CBASIC user that claimed 
"a Basic program that used to take 3 hours to run, now runs in 7 to 8 minutes". Another user reported a program that 
took 1 to 1 i£ hours to run in Basic, now runs in 5 to 6 minutes!!! 

MORE THAN JUST A COMPILER 

CBASIC has its own completely integrated Basic Program Editor. The Editor contained in CBASIC is used to Create 
and/or Edit programs for the compiler. It is a full featured editor with functions designed specifically for writing and editing 
Basic programs It has built-in block Move and Copy functions with automatic program renumbering. Complete, easy to 
use inserting, deleting, extending and overtyping of existing program lines It is also used for Loading, Saving, Appending 
(merging). Killing disk files and displaying a Disk Directory. It also has automatic line number generation for use when 
creating programs or inserting sequencial lines between existing lines. You can set the printer baud rate and direct normal 
or compiled listings to the printer for hard copy. The built-in editor makes program corrections and changes as easy as 
"falling off a log" If CBASIC finds an enor when compiling, it points to the place in the program line where the error 
occurred. All you have to do is tell the editor what line you want to start editing and when it is displayed, move the 
cursor with the airow keys to the place where the error is and conect it. Just like that, it's simple. 

HI-RES & 80 COLUMN DISPLAYS 

CBASIC is the only Color Basic Compiler that includes its own Hi-Resolution 51, 64 or 85 by 24 line display It is also 
the only compiler that supports both the PBJ "Word-Pak" and the Double Density 80 column cards. All of these display 
formats are part of the standard CBASIC compiler package Not only can these display formats be used for normal 
program editing and compiling, but CBASIC will also include them in your compiled programs! If you want CBASIC to 
include the display driver in your program, all you have to do is use a single CBASIC command "HIRES". The run-time 
display driver that CBASIC includes in your program is not just a simple display, but a full-featured display package With 
the Hi-Resolution display package you can mix text & graphics, change characters per line, underline, character highlight, 
erase to end of line or screen, home cursor, home & clear screen, protect screen lines, and much more. All commands 
are compatible with our HI-RES II Screen Commander so you can easily develop screen layouts using HI-RES and Color 
Basic before you compile your program. The same applies to using the 80 column card drivers. What other Basic compiler 
offers you this kind of flexibility? 

64K RAM SUPPORT 

CBASIC makes full use of the power and flexibility of the 6883 SAM (Synchronous Address Multiplexer) in the Color 
Computer. It will fully utilize the 96K of address space available in the Color Computer (64K installed) during program 
Creation. Editing and Compilation CBASIC has a special command for automatic 64K RAM control. When used in a 
program, it allows the user to use the upper 32K of RAM space automatically for variables or even program storage at 
run-rime It will automatically switch the ROMs in and out when needed. There are also two other commands that allow 
you to control the upper 32K of RAM manually, under program control. No other Color Basic compiler directly supports 
theuseof64K RAM like CBASIC 

ALL MACHINE LANGUAGE 

CBASIC is completely written in fast efficient Machine Language, not Basic, like some other Color Basic compilers 
Because of this, CBASIC can edit and compile very large programs. Even using the Hi-Resolution 51 by 24 line display, 
it can work with about a 34K program, and the 80 column card versions can handle almost 40K of program. Some of 
the other Basic compilers can only work with 16K or about 200 lines. Even working with large programs, CBASIC 
compiles programs with lightning fast speed It will compile a 24K program to disk in less than 2 minutes! That's without 
a listing being generated. We've heard stories about some other compilers that take almost 10 minutes to compile a simple 
2-3K program. You might inquire about this when you look at some of the other compilers available. 



THE FINISHED PRODUCT 

Since CBASIC contains statements to support ALL of the I/O devices (Disk. Tape. Screen & Printer). Hi-Res Graphics, 
Sound, and Enhanced Screen displays, it is well suited for a wide range of programming applications. It generates a 
complete. Ready to Run machine language program The finished product or program does not have to be interfaced to 
a Basic program to perform some of its functions or commands. This may seem obvious to you, but some of the other 
Color Basic compilers don't necessarily work this way. Some of their compiler commands need a separate Basic program 
in order for them to work. In some cases, require that a separate Basic program be interfaced to the compiled program 
to perform I/O functions, like INPUT, PRINT and so on. CBASIC doesn't do this. ALL of its commands are compiled 
into a single machine language program that does not require any kind of Basic program to make it work. 

COMPATIBILITY 

You may be wondering about those statements we made earlier concerning 99% or 99.9% syntax compatibility. What 
does that other 1% consist of 3 The biggest part of that 1% has to do with string arrays and variables. CBASIC does not 
use a "String Pool" like Color Basic. It uses absolute memory addresses to locate string variables and anays. This is why 
CBASlC's string processing is so fast, it also eliminates the time consuming "Garbage Collection" problem. When CBASIC 
allocates space for stnngs. it must know how much space to use for each string. When you Dimension a string variable 
in CBASIC, you must tell it how much space you want to save for each element. To Dimension an array of 40 strings, 
64 characters each, you would DIM DA$(40,64). If a string is not dimensioned, CBASIC will automatically allocate 32 
bytes for it If you want a single string to have enough room for 200 characters you would DIM AX$(200). For string 
arcays, you would still access the element you want, the same as Color Basic, to get string #30 from the anay DAS, you 
would still use DA$(30). the only real change is in the DIM statement. For undeclared string arrays of 10 elements or 
less. CBASIC will automatically reserve space for 10 (0-9) strings of 32 characters. In some other Color Basic compilers, 
you have to declare EVERY string variable used in the progrm in a DIM statement. And, to create an anay of 40 strings 
with 64 characters each, you would have to DIM AD$(2560). and then to access string #30, you would have to multiply 
30 x 64 and use a special variable name format or access it one character at a rime Not very compatible or convenient 
to use. and difficult at best 

CBASIC REQUIREMENTS 

CBASIC requires a minimum of 32K RAM and at least one Disk drive. We strongly recommend that you have 64K. 
CBASIC is compatible with all versions of Color & Extended Basic and both Disk Basic V1.0 and VI. 1. Programs 
compiled on either system will run on systems with different ROMs. CBASIC is NOT compatible with JDOS. 

DOCUMENTATION 

The Documentation provided with any program is very important to the user. This is especially true when you talk 
about a program as complete and complex as CBASIC Even though CBASIC was designed to be the most User Friendly 
compiler on the market, we went to great lengths to provide a manual that is not only easy to use and understand, but 
comprehensive and complete enough for even the most sophisticated user. The manual included with CBASIC consists 
of approximately 120 pages of real information, not like some manuals that put just one or two short paragraphs on a 
page If we did it that way, we could have easily created a three or four hundred page manual. The manual index breaks 
down each section of the manual and gives a 3 or 4 word description of each section and its items along with page 
numbers The manual has three sections, the Editor, Compiler and Appendix. Each of these is divided into subsections, 
with Section and Subsection titles printed at the top of each page If you want to. you could find the information you are 
looking for by simply flipping through the pages and scanning the Section titles on the top of the pages. The Manual itself 
is an 8!£ by 11 Spiral Bound book with durable leather textured covers. Some of the reports we have had from CBASIC 
users describe the manual as being the Best program manual they have ever used 

COMPARE THE DIFFERENCE 

CBASIC is not just another Color Basic Compiler. It is the only complete Basic Compiler System for the Color Computer 
Compare CBASlC's features to what other compilers offer and you'll see the difference. When comparing CBASIC to 
other compilers, you might want to keep some of these questions in mind. Does it support I/O functions? You can't write 
much of a program without PRINT. INPUT and so on What about complex string statements, or string statements at all? 
How large of a program can you write? Can you compile a complex string like: M1D$(RIGHT$(DA$(VAL(IM),LEN(LE$)),3,3)? 
Can you use two character variable names for string & numeric variables, like Basic. Does it support all the Hi-Res graphics 
statements including PLAY. DRAW. GET and PUT, using the same syntax as Basic? Do you ever have to use a separate 
Basic program? Can you take complete Basic programs and compile them without extensive changes? Will they work? 
How do you edit a program when it has enors compiling? 

PRICE VERSUS PERFORMANCE 

The price of CBASIC is $149.00. It is the most expensive Color Basic Compiler on the market, and well worth the 
investment. We spent over 2 years writing and refining CBASIC, to make it the Best, most Compatible Color Basic 
compiler available Most of our CBASIC users already bought one or more of the other compilers on the market and 
have since discarded them We even traded in a few of them. If you want a cheap compiler, we'll sell you one of those 
traded in, at a good price Before you buy a compiler, compare the performance of CBASIC against any Color Basic 
compiler Dollar for Dollar, CBASIC gives you more than any other Color Basic compiler available. 

ORDERING INFORMATION 

To order CBASIC by mail, send check or money order in the amount of $149.00 plus $3.00 for shipping and handling 
to the address to the address listed below. 
To order by VISA, MASTERCARD or COD, call us at: (702) 452-0632 (Monday thru Saturday, 8am to 5pm PST). 

CER-COMP 
5566 Ricochet Ave. 
Las Vegas, NV 89110 
(702) 452-0632 



Tell them "I saw it in HOT CoCo.' 
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(for all orders received between 8 A.M. to 4:30 P.M. EST) 



A monthly magazine on tape and disk 

Now every month you can get 8-1 0 ready- 
to-run utilities, programming tips & hints, 
business applications, home management, 
tutorials, and educational programs. Also 
a Buy 'N Sell section and much, much 
more. NO GAMES, ONLY REAL STUFF! 

Each issue shipped to you 
by first-class mail. 

Programs written by computer wizards like 
Kishore M. Santwani and Gary T. Jes. 

SUBSCRIBER BENEFITS 

• Free advice/help on your Basic and ML 
programs, whenever possible. 

• Free Buy 'N Sell ads on computers and 
software 

• 10% off on all Microcom software/ books 

• Subscribers encouraged to submit 
programs for inclusion. (Contact us.) 

EVERY YEAR YOU GET OVER 
$1 500 WORTH OF SOFTWARE. 

So Act Now! 




PREMIERE ISSUE 

(October 1985) 

• Ram Disk(30K) 

• CoCoDiskZap 

• Memory Monitor 

• Educational Hangman 

• Basic Program Packer 

• Tape Encryption (Basic) 

• Disk Encryption (Basic) 

• Basic Speedup Tutorial 

• DMP (100/1 10/120) 
Graphics Dump 

The market value of these programs is 
OVER $150, DOUBLE the price of our 
annual subscription. 

Subscription Rates 
(USA & Canada) 

Tape Disk 

1 Year $65 $75 

6 Months $40 $50 

Single $10 $ 15 

(Other countries add 25%) 
Pay by VISA/MC/Check/MO 



UTILITY ROUTINES 
for the TANDY 
& TRS-80 COLOR 
COMPUTER (Vol. 1) 

This powerful book for Basic and ML Pro- 
grammers, includes program explanation, 
memory requirements, and an annotated 
source listing for the utility routines given 
below. These routines if bought individually | 
will cost you HUNDREDS OF DOLLARS. 

These are 1 00% Position Independent ML 
Utilities and require no ML programming 
knowledge. 

COMMAND KEYS: Access most Basic com- 
mands with 2 keystrokes. 
CURSOR STYLES: Create OVER 65000 Cursor 
Styles. 

FULL LENGTH ERRORS: Get full length error 
messages. 

KEY CLICKER: Ensure key input accuracy. 
PAUSE CONTROL: Put Basic/most ML pro- 
grams "on hold." 

REPEAT KEY: Repeat ANY key. 5 different key 
speeds. „ . 

REVERSE VIDEO (Green and Red): Eliminate 

eye strain. 

SPOOLERS 6 K, 32 K, 64 K): Don't wait for those 
printouts, 32K Spooling Butter in 64K. 
SUPER SCROLLER (64K Only): Save and exam- 
ine everything that scrolls off the text screen. 
AND MUCH, MUCH MORE! 
Compatible with 16 K/32K/64K ECB/Cassette 
and Disk Systems and CoCo I and CoCo II. 

BOOK $19.95 
THESE ROUTINES (READY-TO- RUN) 

ON CASSETTE/DISK: $24:95 
BOTH BOOK& CASS ETTE/DISK: $36 .95 

Tim*-*. 

DISK 
ANTI- PIRATE^ 

(A Breakthrough in Disk Protection) 
Your Only Weapon Against Software Piracy! 
Here is a chance for you to copy-protect 
your Basic and ML programs. DISK ANTI- 
PIRATE does much more than any other 
program in the market. 

MIN. 1 6K ECB Disk System. 
(Works with CoCol and CoColl) 

Only $59-95 

HIDE-A-BASIC 1.1 





500 POKES, PEEKS 
'N EXECS for the 
TRS-80 COLOR 
COMPUTER 

NEVER BEFORE has this information of vital 
significance to a programmer been so readily 
available to everyone. This book will help you 
'GET UNDERNEATH THE COVER' of the color 
Computer and develop your own HI-QUALITY 
programs, SO WHY WAIT? 

This book includes 
POKES, PEEKS, and EXECs to: 

I • Auto start our Basic programs. 

• Disables most Color Basic/ECB/Disk Basic 
I commands. 

• Disable BREAK KEY, CLEAR KEY and RESET 
BUTTON. 

I • Generate a Repeat-Key. 
I • Merge two Basic programs. 
I • Transfer Rompaks to tape (for 64K only). 
I • Speed up your programs. 

• RESET, MOTOR ON/OFF from keyboard. 
I • Restart your Basic program thru the RESET 

BUTTON. 

• Produce Key-Clicks and Error- Beeps. 

• Recover Basic progams lost by NEW, ?10 ERRORS 
and faulty RESET. 

• Set 23 different GRAPHIC/SEMIGRAPHIC modes. 

• Set 1 5 of the most commonly used Baud Rates. 

• Allow you more plays in 23 of your favorite arcade 
games. 

i • AND MUCH, MUCH MORE! 

COMMANDS COMPATIBLE WITH 1 6K/32K/64K 
COLOR BASIC/ECB/DISK BASIC SYSTEMS 
and CoCol and CoColl. 

ONLY $1 6.95 

Basic Programming Tricks Revealed - $1 4.95 
Color Basic Unravelled- $1 9.95 
I Extended Basic Unravelled - $1 9.95 
Disk Basic Unravelled- $1 9.95 
All 3 Unravelled Books- $49.95 
FACTS - $14.95 

I t r/ cas. $49.95 

TelewnteroL disk $59.95 

Qj&Klay. $69.95 

Y Cable for CoCo Max $27 .95 




(A Breakthrough in Cassette Pr otection) 

AT LAST! A program that combines |f 
autostart with complete protection 
of your valuable Basic programs. 

WITH HIDE-A-BASIC 1 .1 THERE IS 
PRACTICALLY NO WAY ANYONE CAN 
'GET INTC YOUR PROGRAM. 
Buy Now & Protect your Profits. 
For 1 6K ECB Cassette System. 

Tape Only $24.95 
Buy BOTH for ONLY $79.95 



O. 



DISKETTES 

5 1 /4" SS/DD Diskettes with tearless sleeves, 
hub rings, write-protect tabs, and jackets. 
Quantity Price Shipping 

10 $17.95 $2.00 

100 $162.95 $7.00 

FREE!! CocoDiskZap program (a $24.95 
value) on additional disk with 
purchase of 1 0 or more disks. 
NO SHIPPING charges on disks if ordered 
with any other software. 



MJF 



MICROCOM SOFTWARE 

P.O. Box 21 4 
Fairport, N.Y. 14450 
Phone (71 6) 223-1477 



Our software/books are available at all leading dealers in USA& Canada. 
To Order:Order by phone & get a $2 refund for our jDM Ml. 
VISA MC, Check, MO. Please add $3.00shipp.ng and handhng (USA & 
CANADA, other countries $5.00). COD add $2.50 extra. M<l«M 
please add Sales Tax. Call for discounts on bulk quantit.es. Dealer 
inquiries invited 



9A.HOUR ORDER HOT LINE (7 DAYS A WEEK): (716) 223-1477 
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UTILITY 



by Mark D. Goodwin 



This program is available on our Instant CoCo cassette. 
See the Instant CoCo ad elsewhere in this issue. 




The Great CoCo 

D urge Utility 

Sloppy disks? Now you can eliminate 



I used to spend a couple of hours each 
month to erase unnecessary files on my 
program disks. To save time, I wrote CoCo 
Purge (see Listing), which can delete multi- 
ple disk files much more quickly than Disk 
Basic's KILL command. 

CoCo Purge is easy to use. Type it in and 
run it. The program will ask you for a drive 
number; respond by pressing a key from 0 to 
3. If you wanted to purge the disk in drive 2, 
for example, press the 2 key. 
Once you've answered the drive prompt, 



excess files quickly. 

CoCo Purge displays a file name and asks if 
you want to kill it. Pressing the Y key kills 
the file, pressing N passes over the file, and 
pressing E exits the program. CoCo purge 
will continue displaying file names until you 



System Requirements 

16K RAM 
Disk Extended Color Basic 
Disk Drive 



press the E key or you exhaust all the files. 

If an error occurs during disk I/O (input/ 
output), CoCo Purge displays an appropriate 
error message and asks if you want to restart 
the program. Answer by pressing the Y key 
to restart or the N key to exit. 

CoCo Purge is not very sophisticated, but 
it is fast and works well. ■ 

Address correspondence to Mark D. Good- 
win, Star Route 79, Box 103, Orland, ME 
04472. 
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Program Listing. CoCo Purge 

10 FORI=4096TO4615 
20 READX 
30 POKEI,X 
40 NEXTI 
50 EXEC4096 

60 DATA142,128, 0,166,31,67, 167, 3 

1 

70 DATA161,31,39,3,142,64,0,31 
80 DATA20,134,53,183,255,3,28,17 
5 

90 DATA189,169,40,142,17,50,189, 
17 

100 DATA37, 173, 159, 160, 0,128, 48, 

37 

110 DATA248, 129, 3, 34,244,183,17, 
48 

120 DATA189, 16, 181, 134, 255, 167,1 
96,142 

130 DATA18, 6, 206,19,6,166,196,39 
140 DATA95,129,255,39,96,52,80,1 
98 

150 DATA8, 166, 192, 173, 159, 160, 2, 
90 

160 DATA38,247,134,47,173,159,16 
0,2 

170 DATA198,3,166,192,173,159,16 
0/2 

180 DATA90,38,247,142,17,127,189 
,17 

190 DATA37,53,80,173,159,160,0,1 
29 

200 DATA89,39,8,129,78,39,4,129 
210 DATA69,38,240,173,159,160,2, 



52 

220 DATA2, 134, 13, 173, 159, 160, 2, 5 

3 

230 DATA2, 129, 78, 39, 19, 129, 69, 39 
240 DATA20,166,77,230,134,111,13 
4,106 

250 DATA134,31,152,77,42,245,111 
,196 

260 DATA51, 200, 32, 32, 152, 141,11, 
125 

270 DATA9, 133, 38, 251, 15, 113, 110, 
159 

280 DATA255,254,134,3,140,134,2, 
183 

290 DATA17,49,198,2,190,192,6,20 
6 

300 DATA18,6,182,17,49,167,132,1 
82 

310 DATA17,48,167,1,134,17,237,2 
320 DATA239,4,173,159,192,4,166, 
6 

330 DATA38,10,51,201,1,0,92,193 
340 DATA12,38,223,57,142,17,165, 
133 

350 DATA4, 38, 31, 142, 17, 179, 133, 8 
360 DATA38,24,142,17,193,133,16, 
38 

370 DATA17,142,17,208,133,32,38, 
10 

380 DATA142,17,224,133,64,38,3,1 
42 

390 DATA17,242,141,25,50,98,142, 
17 

400 DATA137, 141, 18, 173, 159, 160,0 



,129 

410 DATA89,16,39,254,227,129,78, 
16 

420 DATA39,255,132,32,238,166,12 
8 39 

430 DATA6, 173, 159, 160, 2, 32, 246, 5 
7 

440 DATA0,0,68,73,83,75,32,80 
450 DATA85, 82, 71, 69, 32, 85,84,73 
460 DATA76,73,84,89,32,86,49,46 
470 DATA49,13,67,79,80,89,82,73 
480 DATA71,72,84,32,49,57,56,51 
490 DATA32,77,65,82,75,32,68,46 
500 DATA32,71,79,79,68,87,73,78 
510 DATA13,13,68,82,73,86,69,32 
520 DATA78,85,77,66,69,82,32,40 
530 DATA48,45,51,41,63,13,0,32 
540 DATA40,89,47,78,47,69,41,63 
550 DATA0,82,69,83,84,65,82,84 
560 DATA32,84,72,69,32,80,82,79 
570 DATA71,82,65,77,32,40,89,47 
580 DATA78,41,63,13,0,42,42,42 
590 DATA76,79,83,84,32,68,65,84 
600 DATA65,13,0,42,42,42,67,82 
610 DATA67,32,69,82,82,79,82,13 
620 DATA0,42,42,42,83,69,69,75 
630 DATA32,69,82,82,79,82,13,0 
640 DATA42,42,42,87,82,73,84,69 
650 DATA32,70,65,85,76,84,13,0 
660 DATA42,42,42,87,82,73,84,69 
670 DATA32,80,82,79,84,69,67,84 
680 DATA13,0,42,42,42,68,82,73 
690 DATA86,69,32,78,79,84,32,82 
700 DATA69,65,68,89,13,0,0,72 

END 
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FUNDGRAF— A STOCK 

MARKET ANALYSIS 
PROGRAM FOR 16K EX 
TRS 80 COLOR COMPUTER ^ 



STOCK & FUND INVESTING 

with the 

TRS-80* COLOR COMPUTER 

USE FUNDGRAF AND FUNDFILE 

FUNDGRAF is a stock market analysis program that not only graphs and 
analyzes funds or stocks, but also makes decisions on when to BUY and SELL. 
Improve market timing using your COCO. 

GRAPHS fund's progress (up to 200 
weeks). SUPERIMPOSES for comparison: 
a line of constant percent growth or a 
graph of any other fund (or stock). 
CALCULATES over any time span: the 
percent price change and the moving 
average (any span). INDICATES BUY 
and SELL signals. FUNDGRAF requires 
16 K ECB min. 

16/32 K Tape $49.95 

16/32 K 5 in. Disk $69.95 

ADD $2 handling on all orders. 

FUNDFILE is a portfolio and account management program for securities. 
Manage single or multiple portfolios of stocks, mutual funds, bonds, money 
market funds, etc. FUNDFILE allows easy maintenance of all your records for 
accurate portfolio evaluation. NEW 32 K VERSION of FUNDFILE summarizes 
all transactions (dividends, interest, purchases and sales) between any two 
dates of your choice • weekly, yearly, etc. Categorizes interest and dividends paid 
as to tax liability (tax free, etc.) and capital gains as long or short term. Great for 
tax reports. 

FUNDFILE REQUIRES 16 K ECB min. and 80-COL PRINTER. 

5-in. Diskette only for 16 K ECB $27.95 

5-in. Diskette only for 32 K ECB $37.95 

ADD $2 handling on all orders. 




VISA 



Write for free brochure for details. 



PARSONS SOFTWARE, DEPT. 
118 WOODSHIRE DRIVE 
PARKERSBURG, WV 26101 



H 



Formaker 

the fastest, most complete 
office package yet! 

Totally Menu Driven 
Customize with company information 
Complete "on screen" instructions 



FORMS 

letter 

invoice 

quote 

purchase order 
mail order 
confirm order 
receipt 



STORES 

complete forms 
item list 
subquotes 
letters 
footnotes 
customer info 



FIGURES 

quantity 

list 

net 

discount 
subtotals 
tax 

freight, etc. 



SEPARATE CONFIGURE 
PROGRAM 

for company info 
printer options 
quote & inv. # 
w/auto sequencing 
auto date 

send for more information: 



PRINTS 

form feed 
letterhead 
envelope 
multiple copy 
emphasized 

$49 32k ECB disc 



Challenger Software 

42 4th Street 
Pennsburg, PA 18073 
Call (215) 679-8792 (Evenings) 
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TUTORIALS 

by Scott L. Norman 



ntegrate 



Eds. note— Scott Norman puts his 
fertile mind and long experience to 
work explaining integrated business 
software and taking a look at some of 
the best-known integrated players in 
the CoCo market, including the Tele- 
writer-64, Dynacalc, and Pro-Color- 
File triad; the VIP Dbrary; offerings 
from Elite Software; and the new kid 
on the block, PenPal. 

Integrated software is one of the 
most popular buzz-phrases of 
personal computing, and with 
good reason. There is great appeal 
in the idea of buying one program 
that can do all your business-re- 
lated tasks, including word pro- 
cessing, database management, 
spreadsheet calculation, and tele- 
communications. In the ideal situ- 
ation, a data file could be read and 
processed by all applications mod- 
ules without receiving any special 
attention from the user. Change a 
number on a spreadsheet and the 
effects would show up the next 
time you looked at an associated 
graph, database report, or other 
document. 

This kind of one-decision, one- 
purchase product is ideal for busi- 
ness users, who, because they 
have limited time and an applica- 
tions-only orientation, are predom- 
inantly concerned with minimizing the learning curve. Business users 
also constitute one of the most lucrative software markets. As a result, 
multifunction packages have become one of the mainstays of the soft- 
ware industry. Not surprisingly, they tend to be memory hungry and 
use as much as 512K of RAM or more on some machines. 

What does this have to do with the economical Color Computer with 
its smaller amount of RAM? Is there any way for CoCo users to reap 
the benefits of this software trend? I'll explore several options in this 
article. First, however, it is worthwhile to look at some of the general 
concepts of software integration. 

Setting the Scene 

The IBM Personal Computer did not begin to penetrate the market- 
place until the advent of Lotus Development Corp.'s 1-2-3, which com- 
bined a powerful spreadsheet with database and graphics modules. 
Lotus' big winner was followed by the more complex Symphony (which 





Find out which integmted-software 
package offers the kinds of features 
you need with this introductory 
look at the field. 



added word processing and tele- 
communications capabilities) and 
similar products from other manu- 
facturers. 

The Apple Macintosh is a newer, 
more complex computer that has 
only recently begun to benefit from 
integrated software. Most of the 
noise is being made by Lotus' Jazz, 
a Symphony -like product, and Mi- 
crosoft Corp.'s Excel, a powerful 
spreadsheet/graphics combination 
with some data-management ca- 
pabilities. Microsoft president Bill 
Gates claims to have deliberately 
limited the range of functions in 
Excel so as to allow users to choose 
their own word processor and full- 
fledged database programs. 

Gates is counting on the Mac's 
special ability to move data be- 
tween applications programs. It is 
easy to use a portion of a Mac 
spreadsheet as a table in a word 
processor document, or to plug a 
graph or other illustration into a 
document or database record to 
spice things up. The vehicle for per- 
forming this "sleight of hand" is 
the Clipboard, a special portion of 
RAM through which information 
can be cut and pasted. 

That's the clue to the Color Com- 
puter's approach to software inte- 
gration—transferring data via files 
that can be written and read by a 
variety of programs. The big difference is that the CoCo's limited mem- 
ory must use the disk, rather than a reserved section of RAM, to hold 
the information to be transferred. This article explores what you can 
do along these lines with a 64K CoCo and two disk drives. You might 
be pleasantly surprised to find that several combinations of popular 
programs can share data files. 

A unified product that has a consistent set of commands is an ap- 
pealing concept, but in practice you could find that you miss specific 
features of your favorite programs. The answer to this is to have them 
work with other stand-alones as partners. There are several alterna- 
tives in that area along with a new product on the market that prom- 
ises a major improvement in CoCo integration. 

The Secret That's No Secret 

Software integration on the CoCo depends on nothing more exotic 
than the ASCII (American standard code for information interchange) 
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data files used by many applications programs. In this format, each 
character of computer data is represented by an ASCII code. Because 
this is a standardized, accepted way of representing information, it pro- 
vides a natural vehicle for communication between programs. 

There are other ways of recording information on disk. Basic pro- 
grams and graphics are commonly stored in binary code, for example. 
But a lack of standardization makes these methods much less suitable 
than ASCII for the sort of data transfer needed to integrate software. 
Besides, ASCII files can be merged while binary files cannot, and 
merging is what you do in blending spreadsheets, text documents, 
and other kinds of output into a finished product. 

If programs are to make sense of each other's files, they need some- 
thing besides a common storage format; they need a way to recognize 
and handle each other's control characters. Files usually contain spe- 
cial format-control characters along with the raw data. The ability to 
either interpret or ignore these instructions is a critical ingredient of 
file sharing. 

There are probably many combinations that will work, but testing 
every possible arrangement is not practical. The programs discussed 
here either run under standard Radio Shack DOS or are compatible with 
it. OS-9's unified I/O (input/output) system should make for easy file 
swapping, but there is relatively little CoCo applications software run- 
ning under the newer operating system. 

The Big Three 

Devotees of Telewriter-64 from Cognitec, Dynacalc from Computer 
Systems Center, and Pro-Color-File (PCF) from Derringer Software can 
use their favorites together— if Telewriter's ASCII I/O mode is in effect. 
PCF can create reports that Dynacalc can read just as it would any 
other spreadsheet file or which Telewriter can read as text. (You might 
want to use the word processor to spice up a report with boldface, 
italics, or underlined print.) Conversely, a Dynacalc sheet can be used 
by PCF. You might analyze your data with the spreadsheet, and then 
use each row as a single record in the database. It is also simple to 
save a Dynacalc spreadsheet in a form that can be used as a table in a 
Telewriter document. To complete the integration, you can use Tele- 
writer to create data files for Dynacalc. There could be circumstances 
in which this would be easier than using the spreadsheet itself. 

Dynacalc contains routines that generate graphs of spreadsheet 
data, but it takes an extra step to get them into a document. Normally, 
you would use either Dynacalc or a specialized graphics utility to print 
graphs. However, if you want them to appear in the middle of a text 
file, you must use another program, such as Telegraphies from Derrin- 
ger, to translate them into a form that Telewriter can read. This works, 
but there comes a point at which even the enthusiast must admit that 
the file-shuffling process is becoming unwieldy. 

The PCF and Dynacalc manuals are good at revealing the tricks you 
need to transfer information. They tell you how to set up a PCF report 
so that it can be read right into a spreadsheet and how to set up a PCF 
data-segment specification so that the data manager will be able to 
make sense out of information from Dynacalc. The details involve 
consideration of such items as the special symbols used to designate 
blank cells and the ends of columns. 
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It is particularly easy to transfer part of a Dynacalc spreadsheet to a 
Telewriter document. The trick is to record the sheet on disk with the 
output-to-text-file command, /O, rather than with the more common 
worksheet-save command, /SS. This keeps you from having to record 
the control symbols, primarily @ and < , that Dynacalc uses within 
its own files and allows Telewriter to read the rows and columns of 
data correctly. 

You can also use Telewriter to read a conventionally stored spread- 
sheet. It, too, is recorded in ASCII format. The result will be a contin- 
uous string of data, interspersed with Dynacalc's formatting 
characters. This is instructive, but not particularly useful. For a rough 
analogy, think of giving someone directions for driving from point A 
to point B. Although the 10 command gives you a nicely marked map, 
the /SS command produces a correct, if awkward, written description 
of every curve, fork, and pothole in the road. 

You should temporarily change some of Dynacalc's printer attri- 
butes before invoking the output-to-text-file operation. I recommend 
changing the line length to agree with the number of characters in 
each Telewriter line and altering the page length to the number of rows 
of data you will be saving. Dynacalc will ask you to designate the file 
name and the first and last cells to be saved. 

You can use Telewriter's append command to incorporate such files 
into a document. If all goes well, you will be rewarded with a neatly 
formatted table. The spreadsheet columns will appear in their proper 
positions, and you can use Telewriter to work on the information just 
as you would any other text. Of course, the table will no longer have 
the "what if" ability of the original spreadsheet, which means that you 
won't be able to change a figure and see the effect it has on other items 
that might depend on it. 



The VIP Library 

The applications programs from VIP Technologies (nee Softlaw 
Corp.) have long claimed the advantages of a unified display format, 
command set, and file structure. There are presumably unavoidable 
differences in detail between programs. For example, the VIP Writer 
command to move the cursor to the extreme left of the screen is the 
clear-left arrow key combination; VIP Calc requires the shift-left arrow 
key combination to perform the same operation. Nevertheless, the VIP 
products are certainly more alike than are any collection of stand- 
alone programs from multiple vendors. 

Data-file interchange with this group of programs is handled by VIP 
Writer. VIP Calc and VIP Database do not appear to be capable of exchang- 
ing files directly. Once again, the issues concern how to treat the special- 
ized control characters imbedded in the files. I suspect that integrated 
software is most commonly used to produce text documents that include 
bits and pieces from spreadsheets and database managers. If this is so, 
VIP Writer is the logical program for the vendor to select as the one nec- 
essary for data-file interchange, and it is not at all a disadvantage. 

Recently, VIP Technologies has talked about a new product, called 
VIP Desktop, which will more fully integrate the VIP Library programs 
(including the spelling checker and telecommunications terminal). 
However, at this writing, Desktop is not yet available. 



The Elite Family 

Elite-Calc, Elite-File, and Elite-Word constitute another family of 
moderately priced programs with a high degree of file compatibility. 
Elite-File can read files created by its spreadsheet and word-processor 
counterparts and generate ASCII files that the word processor can use. 
Entries from a customer database, for example, might be used as 
variable text in form letters. 

Like Dynacalc, Elite-Calc can produce two kinds of disk files: "com- 
pressed" files that can be reloaded into the spreadsheet program for 
further work and ASCII files intended for use by either Elite-File or a 
word processor. 

Elite-File and Elite-Word form a particularly close partnership. Un- 
like most of its competitors, the database program has no capability 
of its own for storing report formats. As a result, you might find your- 
self typing the same formatting instructions every time you want a 
printout. The best way to get around this is to use the word processor 
to construct a "format file." This is a special text file containing all the 
instructions needed for generating a report, such as which data file to 
interrogate, how to select and sort records, which calculations to per- 
form, the order in which to present the data fields, and so on. 

It is worthwhile to note that the Elite programs are compatible with 
PBJ Inc.'s Word-Pak 80-column display board. When combined with 
a video monitor, these products produce a high-quality display that 
can contain a lot of data. 

PenPal's True Integration 

Four Star Software has recently released a modestly priced combi- 
nation word processor, spreadsheet, data-file manager, graphics pro- 
gram, and telecommunications module. I was only able to work with 
a beta-test copy when I prepared this article and had to contend with 
very limited documentation and a database module that was still 
being debugged. I hope to review a complete, fully documented ver- 
sion soon, but in the meantime, this will serve as a first look at this 
exciting product. 

When you work with PenPal, a single program disk resides in drive 
0 and another, containing your data files, goes into drive 1. The sys- 
tem's main menu depicts the five applications routines as vertical 
bins. Each contains the names of the files created by that application. 
Moving the cursor over a file name and pressing the enter key causes 
both the file and the application to be loaded. This feature, along with 
generally consistent command sets, are in the best tradition of inte- 
grated business software; they make for rapid switching between ap- 
plications. 

Based on my brief experience, I can say that none of the PenPal mod- 
ules is as powerful as a good stand-alone program of the same type. 
That, too, is characteristic of many integrated products available for 
other computers. Some shortcomings will bother you more than others. 
For example, the word processor does not support boldface, underlin- 
ing, or other special printer features; the spreadsheet lacks financial 
functions and IF. . .THEN logic; the database manager seems best 
suited to fairly simple list-type applications; the graphics module works 
with spreadsheet data only— not independent lists of data points. 



However, these aren't toy applications, either. PenPal's word proces- 
sor and spreadsheet can handle respectable amounts of information. 
Its system of using the clear key plus number keys to specify com- 
mands from the ever-present menu is easy to learn. Both the spread- 
sheet and data manager have provisions for creating ASCII disk files 
that the word processor can read. And the spreadsheet, which seems 
to have picked up a few tricks from the Macintosh version of Multiplan, 
is very fast. 

Although PenPal does not represent the absolute peak in CoCo per- 
formance (at least at this stage), it is an intriguing approach to the 
simple, usable, all-in-one integrated system. I look forward to working 
with a production version. 



Final Thoughts 

Because we all have slightly 
different needs of our soft- 
ware, tying together the most 
often used functions does not 
mean the same thing to every- 
one. An integrated package 
usually compromises on each 
program but offers a sum 
greater than the parts in its 
file compatibility. However, 
several of the packages men- 
tioned here do the opposite; 
they are fine stand-alone pro- 
grams that compromise 
somewhat on compatibility. 
The key is to keep your needs 
in mind when looking for an 
integrated package; choose 
the approach that satisfies 
most of them. 

The 64K CoCo is not likely 
to ever see a program that is 
versatile enough to handle 
any chore you can throw at it. 
But there is no disgrace in 
that; people working with ma- 
chines that have far more 
memory are still struggling 
with fundamental questions 
about which functions de- 
serve to be integrated. The 
bottom line is that those who 
use CoCos in businesses or 
professions are going to bene- 
fit from the exciting trend to- 
ward software integration. ■ 



Products Mentioned 



Dynacalc 

Computer Systems Center 
42 Four Seasons Center, #122 
Chesterfield, MO 63017 

Elite-Calc, Elite-File, 
Elite-Word 
Elite Software 
Box 11224 

Pittsburgh, PA 15238 
PenPal 

Four Star Software 
P.O. Box 730 
Streetsville, Ontario 
L5M 2C2, Canada 

Pro-Color-File, Telegraphies 
Derringer Software 
P.O. Box 5300 
Florence, SC 29502-5300 

Telewriter-64 

Cognitec 

704 Nob St. 

Del Mar, CA 92014 

The VIP Integrated Library 
VIP Technologies 
132 Aero Camino 
Santa Barbara, CA 931 17 



Scott Norman is the manager of solid-state science at GTE Laboratories 
in Waltham, MA. Write to him at 8 Doris Road, Framingham, MA 01 701 . 
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GAME 

by W.H. Barber 



This program is available on our Instant CoCo cassette. 
See the Instant CoCo ad elsewhere in this issue. 



Colo 



5i 



Merchant 



Can you strike it rich in the cutthroat 
— world of interstellar trading? — 



Imagine yourself as a star merchant, traveling from planet to planet and 
peddling your wares. Add pirates and space storms, police and muggers, 
and friends and foes. Now, throw in a few space battles, money lenders 

charging high interest rates, and a seedy neighborhood around your space 
port— a place where contraband can be bought and sold in smoke-filled 
bars or on darkened street corners. Sound like a lot of action? You bet, 
and you can be a star merchant trading in this environment! 

Background 



Up to four merchants can travel among 
planets, buying and selling weapons, food, 
machinery, and general cargo. Each planet 
buys commodities according to the needs of 
its inhabitants; they also produce and sell 
goods. The difference between star mer- 
chants' buying and selling prices is the gross 
profit; money earned allows traders to fill 
their ships with commodities. 

Ships require fuel, repair units, and 
weapon systems. Fuel needs are obvious; 
however, it might take as much as 10,000 
gallons of fuel to travel between planets. Fig- 
uring out exactly how much fuel is needed is 
part of the game. Without protective weap- 
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onry, any ship would be easy prey for a lurk- 
ing pirate. Repair units help protect a ship 
from damage. The more units that are car- 
ried, the less likely a ship is to sustain dam- 
age during space storms or pirate attacks. 
When the price is right, it's a good idea to 
stock up on these three items. 

Planetary merchants offer their goods 
through a published price list. Only a foolish 
trader would pay the listed high prices— dis- 
counts are available if you know how to bar- 

System Requirements 

32K RAM 
Extended Color Basic 



gain. When you offer to buy goods for less 
than the asking price, the planetary trader 
can make a counteroffer, accept the price, or 
refuse to bargain. The process is repeated un- 
til both parties agree on a new price. Bargain 
carefully, the risk factor in a planet's profile 
determines how much bargaining planetary 
merchants will tolerate. If you try to drive 
their prices too low, they retaliate by institut- 
ing a wholesale price increase. 

Making a profit is important. The game 
never eliminates players; instead it allows 
them to borrow money to cover losses. Before 
starting a new game, players should agree 
upon the victory conditions and the number 
of game days to be played. For long games, 





Risk 






Lift-Off 


Planet 


Factor 


Needs 


Output 


Weight 


Tannis 


5 


Weapons 


Food 


775 


Cosmos V 


4 


Machines 


Machines 


750 


Belwear 


4 


Machines 


Food 


675 


Terra 


1 


Machines 


Weapons 


1000 


Alpheus 


3 


Weapons 


Gen. Cargo 


1025 


Cammille 


8 


Weapons 


Food 


680 


Sceptre 


3 


Gen. Cargo 


Gen. Cargo 


865 


Frontier 


7 


All Items 


Gen. Cargo 


570 


Omega 


3 


Machines 


Machines 


875 


Startrek 


6 


All Items 


Gen. Cargo 


1120 


Tri-star 


5 


Machines 


Food 


940 


Rimworld 


6 


Machines 


Gen. Cargo 


1250 


Orestes 


4 


Gen. Cargo 


Weapons 


945 


Phoenix 


5 


Food 


Gen. Cargo 


1100 


Auralia 


6 


Weapons 


Weapons 


1020 



Table 1 . Planet Summary 



tape-save and disk-save options are included 
to allow you to save game variables and re- 
sume play at a later time. 

Playing the Game 

Listing 1 is written for cassette systems; for 
disk systems, make the changes shown in 
Listing 2. To clear adequate space in mem- 
ory, execute a PCLEAR1 before loading Star 
Merchant. 

At the start of the game, each player re- 
ceives $10,000 and an empty starship, and 
is placed on a planet randomly selected from 
those listed in Table 1. The computer moves 
players in accordance with their answers to 
game prompts. When all players have com- 
pleted a turn, a game day ends. A game-sta- 
tus board then displays the financial 
standings of all players. At that point, they 
can elect to end the game and determine a 
winner, save the game, or continue play. 

During a game, a star merchant must 
spend time in space. A lucky merchant with 
a heavily armed ship might be able to cap- 
ture a pirate and collect the handsome re- 
ward, but usually few profits are to be made 
there— the less time spent traveling through 
space, the better the chance of making a 
profit. While in space, the merchant must 
watch fuel consumption, carefully monitor 
the approach of other ships, guard against 
overloading the drive motors, and avoid me- 
teor showers. 

When you arrive at a planet, you must sell 
as much cargo as possible. The buying mood 
of the planet largely reflects the needs of its 
people, but chance is also a factor. 

To prevent merchants from buying and 
then reselling the same goods during a turn, 



the program requires 
that players sell their 
commodities before 
buying goods from a 
planet. Local banks 
can loan money to 
any player who needs 
to purchase addi- 
tional trade goods or 
restock a starship. As 
you might expect, 
there are strings at- 
tached. The bankers 
want to recoup the 
loan plus interest. 
Each day, players 
who owe money 
must visit the bank 
and repay the debt or 
pay any interest that 
is due. If necessary, a 

mum |ll|lillBIIHi , m player can borrow 

more money to pay 
interest charges. 
An inventory screen informs players of 
their financial status and summarizes the 
cargo, supply status, and carrying load of 
their ships. The total weight of a ship is im- 
portant because each planet has a maximum 
lift-off weight. A ship that exceeds the limit 
must purchase auxiliary boost units in order 
to blast off. The computer automatically han- 
dles this purchase prior to lift-off, but boost 
units are expensive— so watch your weight. 

When you have restocked and filled the 
cargo holds, select the next destination, tak- 
ing into account fuel consumption, speed, 
and the type of merchandise favored at the 
new location. Also keep your competition in 
mind. If competitors have recently sold 
goods to a planet, it is unlikely that planet 
will need additional products from you. Se- 
lect wisely; then sit back and let the com- 
puter handle your take-off. 



C$: . Planet's Profile 

1-8 Planet's Name 

9 Risk Factor 

10-17 Quantity Wanted 

18-25 Quantity Purchased 

26-33 Quantity for Sale 

34-37 Lift-Off Weight 

L$: Ship's Profile 

1-2 00 if in Space 

1-15 for Planet if on Ground 

3-4 Destination if in Space 

5-6 Distance to Destination 

7 Speed * 



A trip to a local bar near the spaceport may 
be rewarding if you are a star merchant with 
a taste for the fast buck. Buy a few rounds 
and perhaps someone will offer you a deal on 
contraband. But don't drink too much and 
don't be too obvious about your intentions— 
the local police don't like drunks or black 
marketeers. If you are caught, you could find 
yourself in jail. 

Contraband can be sold for fast profits on 
most dark street corners, but, again, you 
must be careful. Police and crooked dealers 
abound. Clearly, the contraband market is 
not for everyone. 

I hope you enjoy the Star Merchant as 
much as I have enjoyed writing it. Try your 
hand at interstellar trading; don't hestitate to 
make changes you know will improve the 
game. (See Tables 2-4 for program data.) But 
watch out; the free-wheeling lifestyle of a star 
merchant can be addictive. ■ 



Write to W.H. Barber at 978 Cherry St., 
netka, IL 60093. 



Win- 



Table 2. Variable Breakdown 



NN Total Players in Game 

N Number of Player 

K Planet Idenifier 

D(N) Value of Merchant's Account 

DB(N) Value of Merchant's Debt 

FP(N) Ship's Fuel 

WP(N) Ship's Weapon Systems 

WT(N) Ship's Weight 

R(N) Ship's Repair Units 

P$(N) Player's Name 

C$(K) Planet's Profile 

L$(N) Ship's Profile 

W(N) Weapons Cargo 

G(N) General Cargo 

M(N) Machinery Cargo 

F(N) Food Cargo 

DAYS Number of Game Days Played 

T1-T7 Miscellaneous Flags 

T5(N) Player's Contraband 

A$ General String Use 

Table 3. Major Program Variables 

Lines Activity 
290-340 Planet Profiles 
770-830 Tests for Space Activity 
920 Fuel Usage in Space 
1580-1640 Assess Damage 

1750 Cost of Resupply ing Ship 
2100-2130 Quantity and Prices-Goods 
Sold 

2430-2440 Quantity and Prices-Goods 
Bought 
4240 Ship's Weight 

Table 4. Key Program Activities 
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Program Listing 1. StarMerchant 

60 X=RND ( -TIMER ) : CLEAR900 : DAYS=1 
:GOTO220 

80 CLS:GOSUB3650:PRINTSTRING$(32 
,204) ; : PR I NTT AB ( 10 ) "GAME SETUP" : 
PRINTSTRING$(32 / 131) ; : RETURN 
120 PRINT@384, " 3. SET TAPE RECO 
RDER TO PLAY --PRESS <r> W 

HEN READY --PRESS <a> T 

0 ABORT" : GOSUB3900:IFA$="A"THEN2 
50ELSEIFA$O"R"THENSOUND200,2:GO 
TO120 

130 CLS3 :PRINT@264, "READING DATA 

H . 

140 OPEN"I",-l,"DATA":INPUT#-l f N 
: IFNONN THENCL0SE#-1 : CLS4 : GOSUB 
3650:SOUND5,9:PRINT"NUMBER OF PL 
AYERS DO NOT MATCH. RESET TAPE R 
ECORDER AND RESTART THE GAME USI 
NG" N" PLAYERS" : END 
150 FORC=lTONN:INPUT#-l,DB(C) ,D( 
C) ,FP(C) ,WP(C) ,R(C) ,P$(C) ,WT(C) , 
W(C) ,F(C) ,M(C) ,G(C) ,L$(C) ,T5(C) : 
NEXT 

160 F0RC=1T015:INPUT#-1,C$(C) :NE 
XT 

170 INPUT#-1,DAYS 

180 CLOSE#-1:GOTO460 

220 GOSUB80: INPUT" 1. HOW MANY P 

LAYERS (1-4) " ;A$:NN=VAL(A$) : I FNN 

<10RNN>4THENPRINT"ONLY ONE TO FO 

UR MAY PLAY ! ! " : SOUND 5 ; 5 : GOSUB402 



0.-GOTO220 

230 DIMD(NN) ,F(NN) ,W(NN) ,R(NN) ,P 
$(NN) ,C$(15) , FP(NN) ,WP(NN) ,T5(NN 
) ,DB(NN) 

240 PRINT@192," 2. IS THIS A NEW 
GAME?"," PRESS EITHER Y OR N 

" ," <y>ES",," <n>0: LOAD DAT 
A FROM PREVIOUS GAME" : GO 

SUB3900: IFA$="N"THEN120ELSEIFA$< 
>"Y"THENSOUND200,2 :GOTO240 
250 GOSUB80:FORN=1TONN:D(N)=1000 
0 : PRINT" ENTER THE NAME OF PLAYER 

#"N:INPUTP$(N) : NEXT 
290 F0RK=1T015 : READC$ ( K ) : NEXT 
300 DATA TANNIS 5502 54045000000 
00309020750775, COSMOS V480699980 
00000000501086750750, BELWEAR 428 
20998 500000000199923 56067 5 
310 DATA TERRA 1902099850000000 
0851070751000, ALPHEUS 3881586560 
000000010601088 102 5, CAMMILLE8998 
0506 70000000040401 5 2 506 80, SCEPTR 
E 35050609900000000252035990865, 
FRONTIER780808080000000001045106 
00570 

320 DATA OMEGA 380709989000000 
0080109990087 5, STARTREK67 5909090 
00000000101010401 120, TRI-STAR568 
26996500000000159925600940, RIMWO 
RLD65070999900000000101040991250 
330 DATA ORESTES 460808585000000 
007510706 50945, PHOENIX 525999980 



00000000351060991100, AURALIA 699 

40508000000000991030401020 

340 RESTORE 

380 N=0:GOSUB80:FORN=1TONN:PRINT 

P$(N):PRINT" — YOU WILL START AT 
■ # 

390 X=RND(15) :L$(N)=RIGHT$(STR$( 
X) ,2)+"0000X" :PRINTLEFT$(C$(X) ,8 
) : NEXT : PRINT : PRINT" — BUY GOODS & 

RESTOCK YOUR SHIPS ";: GOSUB4 180 
430 N=l 

440 GOSUB3880: IFDB(N) >0THEN1340 
450 T1=0:T2=0:T3=0:T4=0:T6=0:T7= 
0:K=VAL(LEFT$(L$(N) , 2 ) ) : I FK=0THE 
N660ELSEGOSUB1680 

460 N=N+1 : IFN<=NN THEN440ELSEDAY 
S=DAYS+1 : N=0 : GOSUB80 : PRINT@72 , "G 
AME STANDINGS":PRINT<ai28,"***END 

OF TRADING DAY " DAYS-1 "***": PRIN 
T" -HERE ARE THE CURRENT EARNINGS 
" :FORC=lTONN:PRINTLEFT$ (P$ (C)+ST 
RING$(15,32) ,15) ; : PRINTUSING" $$ 
########. ##";D(C)-DB(C) :N 
470 PRINT@352,STRING$(32,140) ; :P 
RINT"NEXT?" : PRINT" <1> CONTINUE 

GAME <2> SAVE GAM 

E TO TAPE <3> END GAME 

n . 

480 GOSUB3900: IFA$=" 1 "THEN430ELS 
EIFA$="2"THEN5 30ELSEIFA$="3"THEN 
PRINT@384,"ARE YOU SURE? " , , , " <y> 
ES — END GAME",,"<n>0 CONTINUE" 



TEACHER PAK Four 16K Ext. BASIC programs. Do 
grades (with or without weighting), statistical 
analysis of grades, alphabetize name lists, 
create seating charts. On tape but works with 
disk. 80-column printer helpful. $34.95 

TEACHER PAK PLUS Like Teacher Pak but includes 
CoCo Test em described below. $47.95 

COCO TESTEM Create multiple choice, short 
answer, completion, true/false, and matching 
tests. On tape but works with disk. 32K Ext. 
BASIC. Needs 80-column printer with underline 
ability (DMP-110, LP-VI1I, etc.). $19.95 

COCO GARDENER Superlative garden planning aid 
and gardening data source. Printer preferred. 
16K Extended BASIC. $19.95 

TIME MASTER Calendars, biorhythme, day of 
week, human compatibility, days between dates. 
Printer optional. 16K Extended BASIC. $19.95 

COCO-LIFE The classic game of living, growing, 
reproducing patterns. Printer optional. 16K 
Extended BASIC + ML. $19.95. Enhanced 32K 
CoCo-Life II version also $19.95. 

PERPETUL IFE Cross between checkers and Life. 
One or two players. 16K Ext. BASIC ♦ ML. $19.95 

All programs sold on tape. Send check or money 
order (no cash - Pa. residents add 6%) to: 

Tothian Software 
Box 663 
Rimersburg, Pa. 16248 



Connect your TRS-80 Color Computer 
to the Outside World 

Learn the simple techniques for putting your computer to 
work monitoring and controlling outside devices and instru- 
ments. Construct and use input and output ports, analog- 
to-digital and digital-to-analog converters to control signals 
using BASIC language programs. Excellent for individual or 
classroom instruction. 

The book, TRS-80 Color Computer Interfacing, With Experi- 
ments, no. 21893, fully explains the fundamentals and 
illustrates them with experiments. $14.95 

The Expansion Connector Breadboard, no. CC-100, 
connects directly to the computer and brings out the needed 
address, data, and control bus signals. $34.95 
*The Experiment Component Package, no. CC-150, 
contains all of the parts needed to do the experiments in the 
book. $89.95 

For a limited time only, get all three for $105.00, a 25% 
saving. (Or take 15% off of any individual item.) Offer expires 
November 15, 1986. 

Virginia residents, add 4% sales tax. 

Include $2.50 for shipping. 

Write for our new free catalog of books, hardware, and 
software on interfacing, electronics, scientific software, 
and personal improvement guides. Order from: 



PUTTING 
HANDS 
AND 
MINDS 
TOGETHER 




Qroup ffecknology, <£ld. 

P.O. BOX 87 • CHECK. VIRGINIA 24072 



Visa/MasterCard accepted. 703-651-3153 
TRS-80 is a trademark of Radio Shack, a Tandy Corporation. 
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,STRING$(30,32) ; : GOTO4 90ELSESOUN 
D250,2:GOTO480 

490 GOSUB3900: IFA$="Y"THENENDELS 
EIFA$O"N n THEN490ELSE470 
530 PRINT@38 4 , "SET TAPE RECORDER 
TO BOTH PLAY AND RECORD ",, n PRE 
SS <r> TO SAVE GAME 9 , n PRESS <a> 
TO ABORT" ; :GOSUB3900 : IFA$=" A "THE 
N470ELSEIFA$O"R"THENSOUND2 50, 2 : 
GOTO530 

540 PRINT@384,STRING$ (96,175 )STR 
ING$(24,32) ; : PRINTS 4 26 , " SAVING G 
AME" ; 

550 OPEN n O n , #-1 , "DATA" 
560 PRINT#-1,NN 

570 FORC=lTONN:PRINT#-l,DB(C) ,D( 
C),FP(C),WP(C),R(C),P$(C),WT(C), 
W(C),F(C),M(C),G(C) / L$(C),T5(C): 
NEXT 

580 F0RC=1T015:PRINT#-1,C$(C) :NE 
XT 

590 PRINT#-1,DAYS 

600 CLOSE#-1:GOTO470 

660 CLS0 : GOSUB36 50 : F0RXX = 1T012 : P 

RINT@3 2+RND( 3 20) ,CHR$ ( 129+1 6 *RND 

(7) ) ; :NEXT:FORXX=32T0352STEP32:P 

RINT@XX,CHR$(170) ; : PRINT@XX + 3 1 , C 

HR$(16 5) ; :NEXT:PRINT@3 53,STRING$ 

(30,163) ; :PRI NT (§416, STRING $(95,1 

43) ; :P0KE1535,143 

690 IFFP(N)<1THEN1480 

710 PRINT@487 , "PILOT : "LEFT$(P$( 



N) ,10) ; : PRINTS 384 , ; : PRINTUS ING " F 
UEL:#H##" ;FP(N) ; :PRINTUSING" WP 
NS :####" ;WP(N) ; : PRINTUS ING" MAIN 
T:#####";R(N); 

720 Z=VAL(RIGHT$(L$(N) ,1) ) :X=VAL 
(MID$(L$(N) ,5,2) ) :FP(N)=FP(N)-Z* 
100:K=VAL(MID$(L$(N) ,3,2) ): PRINT 
@417 , "SPEED: "Z"/HR","TO GO: "X 
" LY ' S " ; 

730 IFX<1THEN860 

770 IFRND(6)=60RRND(VAL(MID$(C$( 
K) ,9,1) ) ) >6ANDTK2THEN1050 
800 IFRND(7)=1ANDT2=0THEN1290 
830 I FRND ( WT ( N ) ) > 300ANDRND ( Z ) > 2 A 
NDT3=0THEN960 

860 IFX-Z< = 0THENPRINT(§264,CHR$(1 
81) ; :PRINT(a23 2,CHR$(241) ; : PRINTS 
295,STRING$(4,16 3) ; : PRINTS 3 26 , ST 
RING$(6,17 5) ; : PRINTS 3 56 , STRINGS ( 
10,175) ; :FORC=1TO5:SOUND100,1:NE 
XT: PRINTS 4 54 , "APPROACHING " ; LEFT 
$(C$(K) ,8) ;ELSE910 

870 PRINT@3 30,CHR$(167) ; : PRINTS 3 
27,CHR$(174) ;: PRINTS 360, CHR$( 17 4 
) ; :A$=MID$(L$(N) ,3,2) :MID$(L$(N) 
,1,2) =A$ :PRINT@483, "PRESS ANY KE 
Y TO CONTINUE" ; : GOSUB880 : GOTO460 
880 A$=INKEY$ : I FA$ <> " "THENRETURN 
ELSEPRINT(3 296,CHR$(167) ; :A = A + 1:I 
FA>3THENPRINT@2 32,CHR$(161) ; :A=1 
:GOTO880ELSEPRINT@232,CHR$ ( 2 41 ) ; 
:GOTO880 



910 PRINT@450, "ANOTHER QUIET DAY 
IN SPACE?" : FORC=1TO50 : GOSUB3690 
: NEXT 

920 X=X-Z:GOSUB930:FORC=1TOZ:FP( 

N)=FP(N)-Z*100-INT(WT(N)/10) :NEX 

T:GOSUB4190:GOTO460 

930 MID$(L$(N) ,5,2)=RIGHT$(STR$( 

X) ,2) : RETURN 

960 T3=1:FP(N)=FP(N)-RND(10) 
970 F0RC=1T05 : GOSUB3670 : PRINT(§ 4 5 
4, "MOTORS GETTING HOT " ; : NEXT : 
PRINT@484, "<s>LOW DOWN OR <g>0 0 
N" ; 

980 GOSUB3900:IFA$="S"THEN1000EL 
SEIFA$O"G"THENSOUND250, 2 :GOT098 
0 

990 IFRND(3)=1THENR(N)=R(N)-5:G0 
TO660ELSEPRINT(§454 , "MOTORS DAMAG 
ED! "; :PRINT@484,"YOU MUST 

REDUCED SPEED! "; :R(N)=R(N) -5-RND 
(25) :GOTO1010 

1000 PRINT@452," YOU SAVED YOUR 

MOTORS! "; :PRINT(a484, " YOU HAVE S 

LOWED DOWN! " ; 

1010 Z=Z-1:IFZ<1THENZ=1 

1020 MID$(L$(N) ,7,1)=RIGHT$(STR$ 

(Z) ,1) :SOUND10,10:GOSUB4190:GOTO 

660 

1050 T1=T1+1 

1060 FORC=1TO5:PRINT@140,CHR$(15 

9) ; :PRINT@450, "WARNING A SHIP 

APPROACHES! " ; : PRINTS 140 , CHR$ ( 18 5 



WHITE HOUSE -| -800-351 -3442 



COMPUTER 



P.O. Box 4025 
Williamsport, PA 17701 



VISA and MC 
Accepted 4% 



HOURS: Monday-Friday 
9:00 am-6:00 pm 



PRINTERS 



MANNESEMAN TALLY 

Spirit 80 249.00 

MT 160L 495.00 

MT 180L 595.00 

CITIZEN 

MSP 10 305.00 

MSP 15 450.00 

MSP 20 450.00 

MSP 25 575.00 



EPSON 

RX 80 

RX 100 

JX 80 

FX 85 

FX 185 

LQ 1 500 PAR . . . 

LQ 1500 SER 1 

LX 80 

Homewriter 

Comrex 220 Atari. 
Comrex222Comm 

LX 90 

SQ 2000 1 

DX 10Daisywheel. . . 
DX20Daisywheel. . . 
HS 80 Letterjet 



209.00 
369.00 
479.00 
345.00 
499.00 
979.00 
039.00 
222.00 
209.00 
199.00 
1 99.00 
245.00 
525.00 
235.00 
319.00 
359.00 



STAR MICRONICS 
SG 10 214.00 

SG 15 379.00 

SD 10 345.00 

SD 15 450.00 

SR 10 485.00 

Powertype 307.00 

LEGEND 

1380 269.00 

1385 305.00 

1 080 Square Dot . . . 229.00 
880 Square Dot .... 1 99.00 

OK I DATA 

Okimate 10 179.95 

182 219.95 

84 640.95 

192 349.95 

193 525.95 

PANASONIC 

1090 187.00 

1091 237.00 

1092 385.00 

1093 425.00 

3151 455.00 



POLICY: No deposit on COD orders. Free freight on all prepaid cash 
orders over $300 in the cortinental USA. APO & FPO add $5.00 per 
hundred. For priority mail add $8.00 per hundred. PA residents add 6% 
sales tax Defective products must have Prior RA number Schools net 1 5. 



PRINTER PAPER 

2500 Sheets Lazor. . . 24.95 
1000 Sheets Lazor. . . 14.95 

500 Sheets Lazor 9.95 

Mailing Labels 

1000 qty 9.95 

COLOR PAPER 

ASSORTED PASTELS 
2500SheetsLazor . . 42.95 
1000 Sheets Lazor . . . 23.95 
500 Sheets Lazor. . . . 23.95 



TEAC DISK DRIVE 

FD 55V 320K/Half Height 
DS/DD 149.00 

FD 55F 320K/Half Height 
96 T.P.I 169.00 

Software for FD 55V. . . 39.95 

DISKETTES 

SKC Lifetime Warranty 

SS/DD 10.95 

DS/DD 14 95 

BONUS Lifetime Warranty 

SS/DD 9.50 

DS/DD 13.50 

MAXELL 

MD 1 1595 

MD 2 20.95 



MODEMS 

Volksmodem/Cable. . . 58.95 
Volks 12 179.95 

Hayes 300 149 95 

Hayes 1200 385.95 

Compuserve Starter 

Kit 19.95 



(717) 322-7700 



INNOVATIVE 
CONCEPTS 

Flip-N-File 10 2.50 

Flip-N-File 15 6 50 

Flip-N-File25/Lock 1 2 50 

Flip-N-File 50 12.50 

Flip-N-File50/Lock 16 50 



MON 

TEKNIKA 

MJ-10 Composite/ 

Separate Video . . 185.95 
MJ-22 RGB/Composite/ 

Separate Video . 269 95 



ZENITH 

ZVM 122 Amber 82.95 

ZVM 123 Green 75.95 

ZVM 131 RGB Color/ 

Green 40 Col 229.00 

ZVM 133 RGB Color/ 

Green 80 Col 389.00 

ZVM 130 Color/ 

Green 259 00 

ZVM 135 RGB Color/ 

Green 80 Col 439.00 



ITORS 

SAKATA 

SC 100 Color 179.00 

SG 1000 Green 99 95 

SA 1000 Amber ... 105.95 

NEC 

1205 95.00 

1260 139.95 

1201 139.95 

AMDEK 

300 G 1 19.00 

300 A 129.00 

Color 300 229 00 

Color 500 339.00 

Color 600 399.00 

Color 700 469.00 

Color 710 539.00 

310 A 145.00 



INTERFACES 

SP-3 Serial to Parallel 57.95 

1 Year Warranty 



Tell them "I saw It In HOT CoCo.' 
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) ; :GOSUB3670:NEXT:PRINT(§140,CHR$ 
(191) ; :GOSUB3670:PRINT@141,CHR$( 
191) ; :GOSUB3670 

1070 PRINT@139,CHR$(177)STRING$( 
2,191)CHR$(178) ; : GOSUB3670 : PRINT 
@170,CHR$(177)CHR$(190)CHR$(148) 
CHR$(152)CHR$(189)CHR$(178) ; :GOS 
UB3670:B$=CHR$(152)+CHR$(16 8)+CH 
R$ ( 200)+CHR$ (230) :PRINT<§202 , CHR$ 
(149) ; :PRINT@207,CHR$(154) ; 
1080 PRINT@450," <r>UN OR <f 

> IGHT " ; :GOSUB3970: IFA$="R 

" THEN1200ELSEI FA$ <> " F "THEN SOUND 2 
50, 2:GOTO1080 

1110 WP(N)=WP(N)-10:R(N)=R(N)-10 
: IFRND(WP(N) ) >150THENPRINT@4 48 , " 
YOUR TOO STRONG - HE LEFT": SOU 
ND2 50, 5:GOSUB4190:GOTO9 20ELSEIFR 
ND(4)=1THEN1170ELSE1120 
1120 I FRND ( 2 ) =1ANDT5 ( N ) =0THENPRI 
NT@448," YOU FOUGHT AND DROVE H 
IM AWAY" : SOUND200 , 8 : GOSUB4190 : GO 
TO920 

1123 IFRND(3)=1ANDWP(N)>100THENP 
RINT@448,"THE PIRATE LEFT BECAUS 
E OF YOU. YOU RECIEVE $2500 FOR 
BRAVERY i " ; :D(N)=D(N)+2500: SOUND 1 
00,5:WP(N)=WP(N) -10 : GOSUB4020 : GO 
SUB4190:GOTO920 

1125 IFRND(T5(N) )<5 0RRND(2)=1TH 
EN1140 

1130 PRINT@320, "HE WAS A FEDERAT 
ION PATROL SHIP , BOARDED YOU AND 
FOUND THE CONTRABAND YOU HID. Y 
OU'VE BEEN FINED$1000.00 AND HAD 
THE CONTRABAND TAKEN AWAY.":T5( 
N)=0:D(N)=D(N)-1000:GOSUB4190:GO 
TO920 

1140 IFRND(3)=1THENPRINT@448 / B 
YOU FIRED AT A FRIENDLY SHIP!":S 
OUND1 , 15 : GOSUB4010 : XX=RND ( 8 ) *100 
0:D(N)=D(N)-XX:PRINT@450," penal 
ty = "; :PRINTUSING"$####";XX:SOUN 
D200,5:GOSUB4190:GOTO920ELSE1160 

1150 R ( N ) =R ( N ) -RND ( R ( N ) ) : WP ( N ) =W 
P ( N ) -10 : GOSUB37 10 : SCREEN0 , 1 : GOSU 
B3710:PRINT<a448," HEAVY D 

AMAGE " : SOUND200 , 2 : SOUNDl , 9 : GOSUB 
4190:GOTO1570 

1160 SOUND2 55,l:WP(N)=WP(N)-INT( 
WP(N)/2) : FP(N)=FP(N)-25:R(N)=R(N 
)-15:PRINT@484," YOUR IN A HEAV 
Y FIGHT " ; : F0RC=1T04 : GOSUB3670 : 
SCREEN0,1:GOSUB3710:GOSUB3710:GO 
SUB3690:NEXT: IFRND(4) =4THEN1150E 
LSE1220 

1170 PRINT<§448," YOU DESTROYED A 

PIRATE SHIP"," YOU ARE AWARDED 
$5000" ; :D(N)=D(N)+5000:SOUND100, 
5:GOSUB4010:PRINT@448," YOU ALSO 

GET HIS STOLEN CARGO — WEAPONS 
& MACHINES: GOOD JOB ! " ; : GOSUB401 
0:W(N)=W(N)+35:M(N)=M(N)+50:GOSU 
B4190:GOTO920 

1200 X=X+1:GOSUB930:IFWT(N)>450T 

HENl 260ELSEI FRND ( Z ) >1THENPRINT@4 

49, "YOU 'RE GOING TOO FAST FOR HI 

M " : SOUND200 , 4 : GOSUB4 1 90 : FP ( N ) =FP 

(N)-250:GOTO920 

1210 IFRND(2)=1THEN1230 

1220 PRINT@449," HE WAS NO EN 

EMY, SILLY ! " : SOUND 100 , 8 : GOSUB419 

0:FP(N)=FP(N)-100:GOTO6 60 

1230 IFRND(2)=1THEN1250 
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1240 FP(N)=FP(N)-150:PRINT@449," 
HE CAUGHT UP WITH YOU ! " : SOUND9 
,9:GOSUB4010:IFT5(N)>0THEN1130EL 
SE1080 

1250 PRINT@449,"YOU CAN'T ESCAPE 
-YOU MUST FIGHT" ; : F0RC=1T09 : GOSU 
B37 30:GOSUB3710:GOSUB3690:NEXT:G 
OSUB4010 : SOUNDl , 2 : GOTO1110 
1260 FP(N)=FP(N)-WT(N) :PRINT@449 
, "YOU'VE A HEAVY LOAD THIS TRIP" 
; : SOUND9 , 9 : GOSUB4010 : I FRND ( 2 ) =1T 
HEN1210ELSEIFRND(2)=1THEN1220ELS 
E1240 

1290 SOUND5,5:PRINT(§451, "METEOR 
SHOWER IN THE AREA 1 " ; : F0RC = 1T07 5 
: SET ( RND ( 6 0 ) +1 , RND ( 1 7 ) +2 , 5 ) : GOSU 
B3730:NEXT:T2=1:FP(N)=FP(N)-25:R 
(N)=R(N)-25 

1300 IFR(N)<0THEN1570ELSE:PRINT@ 
449, "YOU SURVIVED THAT SHOWER! 

" ; :SOUND200,5:IFZ>2ANDRND(3)= 
2THENGOSUB3670:PRINT@449," — HEA 
VY SCREEN DAMAGES I " ; : R ( N ) =R ( N ) -R 
ND(R(N) ) :GOSUB4190:GOTO660ELSEGO 
SUB4190:GOTO660 

1340 DB(N)=INT(DB(N) ) :GOSUB2020: 
PRINT@226," DEBT " ; : PRINT@258 , ; : 
PRINTUSING" $#####" ;DB(N) ; :PRINT@ 
416, "CURRENT CASH" ; : PRINTUSING" : 
$$#########. ##";D(N) :PRINT" <1> 
" ; :PRINTUSING"PAY OFF DEBT OF $ 
$#####" ;DB(N) : PRINT " <2> INTERES 
T OF .01% PLUS FEE" ; 
1350 PRINT<§246," FEE ";:PRINT(§27 
8, "$5.00"; 

1360 GOSUB3900: IFA$=" 2 "THEN1370E 
LSEIFA$="1"THEN1400ELSESOUND250, 
2:GOTO1360 

1370 GOSUB1430:CC=DB(N)*.01+5:PR 
INT@384 , "DAILY INT/FEE IS";:PRIN 
TUSING":$$####";CC 
1380 IFD(NXCC THENPRINT@416,"YO 
U DON'T HAVE CASH TO PAY BANK SO 
YOU GET MORE DEBT" ; : DB ( N ) =DB ( N ) 
+CC:PRINT@226 ,"NEW DEBT"; :PRINT(§ 
258 , ; : PRINTUSING" $ $######" ;DB(N) 
; : SOUND200,5:GOSUB4190:GOTO450 
1390 D(N)=D(N)-CC:GOSUB4190:GOTO 
450 

1400 GOSUB1430:IFD(N)<=0THEN1440 
ELSEPRINT(3416," HOW MUCH DEBT TO 

PAY " : INPUT" ============== 

=====>" ;A$:CC=ABS(VAL(A$) ) : IFCO 
DB(N)THENGOSUB1430:PRINT@448 , "YO 
U DON'T OWE THAT MUCH t! " : GOSUB4 1 
90:GOTO1340 

1410 IFCC>D(N)THENGOSUB1430:PRIN 
T@448,"YOU DON'T HAVE THAT MUCH 
MONEY! " :GOSUB4190:GOTO1340 
1420 DB(N)=DB(N)-CC:D(N)=D(N)-CC 
: IFD3(N) >0THEN1340ELSEGOSUB4190: 
GOTO450 

1430 PRINT@416,STRING$(9 5,32) ; :R 
ETURN 

1440 PRINT@416," YOU DON'T HAVE 
THAT MUCH CASH! GO BACK & PAY I 
NTEREST--SORRY! " ; : GOSUB4 190 : GOTO 
1340 

1480 L$(N)="0000000" :FP(N)=0 
1490 F0RCC=1T05:PRINT@416," YOU 
ARE DRIFTING IN SPACE !": PRINT" : : 
: YOU'VE RUN OUT OF FUEL ::::":S 
CREEN0 , 1 : SOUNDl , 9 : PRINTS 416 , STRI 
NG$(63,32) : NEXT 

1500 IFRND(3)=3THENGOSUB4190:GOT 



O460ELSEK=RND( 15) : ONRND ( 3 ) GOTO 15 
20,1530 

1510 PRINT(§384, "A MERCHANT SHIP 

ARRIVES AND TOWS YOU TO ";LEFT$ 

(C$(K),8);" FOR $10000", "YOU MUS 

T BORROW TO PAY FOR IT";:DB(N)=D 

B(N)+10000:GOTO1550 

1520 PRINT@384," A FEDERATION PA 

TROL SHIP SHOWS' AND TOWS YOU 

TO ";LEFT$(C$(K) ,8) :IFT5(N)>0TH 
ENPRINT"THEY ALSO TAKE YOUR CONT 
RABAND" :T5(N)=0:GOTO1550ELSE1550 
1530 IFRND(WP(N) ) > 10THEN1540ELSE 
PRINT@384," PIRATES BOARD YOU AN 
D TAKE ALL YOUR CARGO AND SHIP' 
S SUPPLIES THEY ALSO LEAVE YOU 

DRIFTING" :T5(N)=0:W(N)=0:G(N)=0 
:M(N)=0:F(N)=0:WP(N)=0:D(N)=0:K= 
0:GOTO1550 

1540 PRINT@384," PIRATES SHOWED, 

BUT YOU FOUGHT THEM AND THEY 
LEFT THE AREA ! " : WP ( N ) =WP ( N ) -10 : G 
OSUB4180 : IFRND ( 2 ) =1THEN1570ELSE4 
60 

1550 K=K+100:L$(N)=RIGHT$(STR$(K 
) ,2)+"00000" :GOSUB4190:GOTO460 
1570 GOSUB 80 : PRINT@73 , "DAMAGE RE 
PORT" ; 

1580 PRINT@192, ; :C=RND(6) :ONC GO 
TO1600,1610,16 20,1630,1640 
1590 PRINT" **PORT HOLD RIPPED 0 
PEN WHEN SCREENS FAILED!"," 

ALL GENERAL CARGO WAS LOST!": 

G ( N ) =0 : GOSUB4 1 80 : GOT09 20 

1600 PRINT" * * AFT CARGO BAY DEST 

RORYED WHEN SCREENS FAILED!"," 

ALL WEAPONS CARGO LOST!":W(N) 

=0:GOSUB4180:GOTO920 

1610 PRINT" * *STARBOARD HOLD RUP 

TURED WHEN SCREENS GAVE WAY!" 

," ALL FOOD & MACHINERY CARGO 

WAS LOST!":M(N)=p:F(N)=0:GO 
SUB4180:GOTO920 

1620 PRINT" **CARGO BAYS HEAVILY 
DAMAGED AND FUEL TANKS RUP 

TURED WHEN SCREENS FAILED TO 

HOLD!"," HALF YOUR FUEL WAS LO 

ST AS WELL AS ALL WEAPONS & 

FOOD CARGO ! " : FP ( N ) =FP ( N ) -I 

NT ( FP ( N ) /2 ) : W ( N ) =0 : F ( N ) =0 : GOSUB4 
180-.GOTO920 

1630 PRINT" **SCREENS FAILED AND 
THE FUEL TANKS WERE RUPTURE 

D. YOU LOST" : CC=100+RND ( 500 ) : PRI 
NTUSING " ### GALS";CC:FP(N)= 

FP ( N ) -CC : SOUND10 , 5 : GOSUB4180 : GOT 
0920 

1640 PRINT" **SCREENS FAILED — MO 
TORS HAVE BEEN HEAVILY DAMAG 

ED. YOU MUST SLOW DOWN.":G 

OTO1010 

1680 CLS:GOSUB3650:GOSUB3780:GOS 
UB4240 

1690 PRINT@352,"<i>VENTORY LIST 
OR BORROW MONEY <S>ELL SOME OF Y 
OUR CARGO <b>UY GOODS TO T 

RADE ELSEWHERE <r>ESTOCK OR REP 
AIR YOU VESSEL <1>EAVE "LEFT$(C 
$(K) ,8)STRING$(14,32) ; 
1700 GOSUB3900:IFA$="S"THEN2090E 
LSEIFA$="B"THEN2420ELSEIFA$="L"T 
HENGOSUB4240:Y=0:GOSUB2920:RETUR 
NELSEIFA$="I"THEN1970ELSEIFA$<>" 
R"THENSOUND250 , 2 :GOTO1700 
1740 IFT3=1THEN1760 



17 50 XX=VAL(MID$(C$(K) ,9,1) ) :X1= 
RND(XX)/10+DAYS/100:Yl=RND(XX)*2 
5:Z1=RND(10-XX)*111 
1760 GOSUB3750:PRINT@448,STRING$ 
(63,32) ; : PRINTS 28 8 , "WE OFFER THE 
FOLLOWING SERVICES <f>UEL.... 
. . " ;: PRINTUSING" $$###. ##/GAL"; XI 
1770 PRINT" <r>EPAIRS. . . " ; :PRIN 
TUSING"$$###.##/HR";Y1 
1780 PRINT" <w>EAPONS ...";: PR IN 
TUSING"$$###.##/WPN";Z1 
1790 PRINT" <e>exit screen <i> 
inventory" :T8 = 1 

1800 GOSUB3900:IFA$="I"THEN1900E 

LSEIFA$="F"THEN1810ELSEIFA$="R"T 

HEN1830ELSEIFA$="W"THEN1850ELSEI 

FA$="E"THENGOSUB38 50:T3=1 :GOT016 

90ELSESOUND2 50 , 2 :GOTO1800 

1810 PRINT"HOW MANY GALLONS" ;:GO 

SUB2385 : I FZ *X1 >D ( N ) GOSUB4050 : GOT 

01760 

1820 FP(N)=FP(N)+Z:D(N)=D(N)-Z*X 
1:GOTO1760 

1830 PRINT"HOW MANY HOURS OF WOR 
K" ; :GOSUB2 385: IFZ*Y1>D(N)GOSUB40 
50:GOTO1760 

1840 R(N)=R(N)+Z:D(N)=D(N)-Z*Y1: 
GOTO1760 

1850 PRINT"HOW MANY WEAPONS" ;:G0 
SUB238 5 : IFZ*Zl>D(N)GOSUB4050:GOT 
01760 

1860 WP(N)=WP(N)+Z:D(N)=D(N)-Z*Z 
1:GOTO1760 

1900 G0SUB4 240 : PRINTS 2 56 , " INVENT 
ORY FOR :"LEFT$(P$(N) ,15) : PRINT@ 2 
88, ; :PRINTUSING"cash :$$########" 
;D(N) ; :PRINTUSING" debt :$$##### 
# " ; DB ( N ) : PRINTUSING "##### GALS F 
UEL";FP(N),: PRINTUSING " #### WP 
NS" ;WP(N) 

1910 PRINTUSING"##### RPR UNITS" 
;R(N) , :PRINTUSING" #### CGO WT" 
;WT(N) 

1920 PRiNT"=============cargo=== 

==========="; :PRINTUSING"##### W 

PNS " ; W( N ) , : PRINTUSING" #### 

# TONS FOOD" ;F(N) : PRINTUSING "## # 

## MACHINES " ;M(N) , :PRINTUSING" 

##### TONS CGO";G(N) 

1930 GOSUB4190:GOSUB3850:IFT8=1T 

HEN1760ELSE1690 

1970 PRINT@352," CAPTAIN ";LEFT$ 
(P$(N) ,15) : PRINT" < INVENTORY 
YOUR WEALTH" ,, "OR" , " <b>ORROW 
MONEY AT THE BANK " STRING$ ( 3 2 , 3 2 ) 
; :T8=0 

1980 GOSUB3900:IFA$="I"THEN1900E 
LSEIFA$O"B"THENSOUND250,2 :G0T01 
980ELSEGOSUB20.20:GOTO2040 
2020 CLS:GOSUB80:PRINT@72, "***** 
bank*****" ; : PRINTS 96 , STRING$ (11, 
177)STRING$(8,147)STRING$(13,17 8 
) ; : PRINTS 1 28, STRING$( 11,185) " TE 
LLER "STRING$(13,182) ; :FORC=160T 
035 2STEP3 2 : PRINT@C , STRING$ ( 11,22 
3 ) CHR$ ( 2 5 5 ) STRING$ (6,202) CHR$ ( 2 5 
5) STRINGS ( 13,223) ; : NEXT 
2030 PRINT@365,STRING$(3,195)CHR 
$(194) ; : PRINTS 3 84 , STRING$( 3 2,131 
) ; : RETURN 

2040 PRINT@426,"HOW MUCH ": 

INPUT "================>"; A$:CC=A 

BS(VAL(A$) ) : IFCO99999THEN2050EL 
SEPRINTI32 26 , "AMOUNT" ; : PRINTS 2 58 , 
; : PRINTUSING" $#####" ;CC; :SOUND2 5 



0,2:DB(N)=DB(N)+CC:D(N)=D(N)+CC: 
GOSUB4190:GOTO1680 
2050 PRINT@246,"TOO MUCH";:PRINT 
@ 278, "<$ 100000" ; : G0SUB4 190 : PRINT 
@480,STRING$(30,32) ; :GOTO2040 
2090 IFT1=1THENS0UND5,5:PRINT@38 
4, "YOU HAVE ALREADY MADE YOUR SA 
LES" ; :GOTO1700 

2100 W1=VAL(MID$(C$(K) ,10,2) ) :F1 
=VAL(MID$(C$(K) ,12,2) ) :M1=VAL(MI 
D$(C$(K) ,14,2) ) :G1=VAL(MID$(C$(K 
) ,16,2) ) 

2110 W2=VAL(MID$(C$(K) ,18,2) ) :F2 
=VAL(MID$(C$(K) ,20,2) ) :M2=VAL(MI 
D$(C$(K) ,22,2) ) :G2=VAL(MID$(C$(K 
) ,24,2) ) 

2120 XX=VAL(MID$(C$(K) ,9,1) ) 
2130 W3=W1-(W2-DAYS) :F3=F1-(F2-D 
AYS) :M3=M1-(M2-DAYS) :G3=G1-(G2-D 



AYS) :W4=100*XX+RND(XX)*XX:F4=50* 

XX+RND( XX) *XX :M4=30*XX+RND( XX) *X 

X:G4=10*XX+RND(XX) *XX 

2140 IFW3<1THENW3=RND(15) 

2150 IFF3<1THENF3=RND ( 20 ) 

2160 IFM3<1THENM3=RND ( 25 ) 

2170 IFG3<1THENG3=RND ( 30 ) 

2180 GOSUB3750:PRINT@288, " WE 

WILL BUY -(@)- YOU HAVE"; 
2190 PRINT"<w>"W3;TAB(8) "WEAPONS 

$"W4;TAB(25)W(N) 
2200 PRINT" <f >"F3;TAB(8) "TNS/FOO 
D $"F4;TA3(25)F(N) 

2210 PRINT"<m>"M3;TAB(8) "MACHINE 
S $"M4;TAB(25)M(N) 

2220 PRINT"<C>"G3;TAB(8) "TNS/CGO 

$"G4;TAB(25)G(N) 
2230 PRINT"<e> exit this screen" 
:PRINTSTRING$( 30,32) ; 
2240 GOSUB3900: IFA$="W"THEN2260E 
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— THE ANIMATOR SERIES 

Create your own FULLY ANIMATED CARTOONS! 

THE ANIMATOR certainly is a one oi a kind package. I've 
never seen something like this on any other home computer 
...a very good buy tor the CoCo " M IlUrt, RAINtOW 
T*C«l«lkol Wrlf.r 

READ THI RIVIIW IN JANUARY'S RAINtOW 
NEWLOWPttCCSI 
THE ANIMATOR - Command a Hollywood style animation 
studio 32 eels & 620 frames tor over 15 mm of animation! 
Extensive manual & 3 cassettes 32K/EXT CASS $29 95 

ANIMATOR JR ■ a simplified version in semigraphics 1 6 
eels. 500 frames (1 5 mln ♦ ) Animation can be called tr^m 
your own BASIC program! WK/EXT. CASS. $15.96 
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REVIEWED IN THE JUNE'85 ISSUE Of THE RAINBOW 
— THE TRIAD PRESCHOOL SERIES — 

Used in hundreds of preschools & day care centers 

CENTIPEDE ABC's & 123's 

Children 3 & up learn letters & numbers Each correct 
response adds another animated part to a smiling dancing 
cem.pede 16K/EXT CASS $1795 

ALPHABET STEW 

KEYBOARD EXPLORATION FUN Children 18 months & up 
can command the computer Up to 70 different animated 
responses 16A32K/EXT CASS. $17.95 

ETCH* A* DOT 

Easy drawing program for children 4 & up Block graphics 
(semigraphics) >8K/EXT. CASS $11 95 

PRESCHOOLS CALL (208| 683-6459 OR SEND PURCHASE 
OROER GENEROUS VOLUME DISCOUNTS AVAILABLE 



A 100% JOYSTICK -DRIVEN ILLUSTRATED ADVENTURE! 
OVER 200 CHALLENGING SITUATIONS PER 
CHAPTERI 




The hqhty detaded black A whke MuHraoom put even the bett cokx 
adventure graptua to %hame . the hrU ol * whole new kmd ol 
pomt-and-khek' adventure the wave oi the future* 

WAR of tne WORLDS Chapter Ont - The Londmg 
SPECIAL INTRO0UCT0RY OFFER - $16 96 

SOLD SEPARATELY for $18 96 •och 
WAR of the WORLDS Chapter Two -The Quest 
WAR of the WORLDS Chopw* Three - The Lost Hope 
SPECIAL PACKAGE PRICE - AM 3 Chapters for $39 95 

SUPPLIED OH CASSETTE 

REQUIRES 64K AND ONE RADIO SMACK TYPE JOYSTICK 



•*★**★* 



OROiM TWAD PICTURES SOfTWMtt FROM 
SOFTWM& SPECTRUM. P 0 BOX 2101 
ADfcLAlOt SOUTH AUSTRALIA. SOOI 
(06) ZUSK30R6I 4668 



SEND NO MONEY 

We'll bill you with your shipment. 
A $3 shipping and handling fee will be 
charged per shipment. 



Send your order to: 
TRIAD PICTURES 

P.O. Box 1299 
Sequim. WA 98382 

CALL OR WRITE FOR CATALOG 



ORDER 
HOTLINE 
806) 683-646C- 
24 MRS 




Tell them "I saw it in HOT CoCo.' 
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LSEIFA$="F"THEN2290ELSEIFA$="M"T 
HEN23 20ELSEIFA$="C"THEN23 50ELSEI 
FA$ <> " E "THENSOUND250 , 2 : GOTO2240E 
LSE2250 

2 250 Tl=l :GOSUB4 2 40:GOSUB3850:GO 
TO1690 

2260 PRINT@448, "HOW MANY WEAPONS 
====>"; : GOSUB2 38 5 : IFZ >W( N ) ORZ >W 

3 THENGOSUB2380:GOTO2180 

2270 D(N) =D(N)+Z*W4:W(N) =W(N) -Z : 
W3=W3-Z :W2=W2+Z :GOSUB2280: A$=STR 
$(W2) :MID$(C$(K) ,18,2)=RIGHT$(A$ 
,2) :GOTO2180 

2280 IFW2>99THENW2=99:RETURNELSE 
RETURN 

2290 PRINT@448, "HOW MANY TONS OF 
FOOD=>" ; :GOSUB2 38 5 : IFZ>F(N)ORZ> 
F3 THENGOSUB2380:GOTO2180 
2300 D(N)=D(N)+Z*F4:F(N)=F(N)-Z: 
F3=F3-Z :F2=F2+Z :GOSUB2310: A$=STR 
$(F2) :MID$(C$(K) , 20 , 2 ) =RIGHT$ ( A$ 
,2) :GOTO2180 

2310 IFF2>99THENF2=99: RETURN ELSE 
RETURN 

2320 PRINT ^448, "HOW MANY MACHINE 
s ====>"; : GOSUB2385: IFZ>M(N)ORZ> 
M3 THENGOSUB2380:GOTO2180 
2330 D(N)=D(N)+Z*M4:M(N)=M(N)-Z: 
M3=M3-Z :M2=M2+Z :GOSUB2340 : A$=STR 
$(M2) :MID$(C$(K) , 22 , 2 ) =RIGHT$ ( A$ 
,2) :GOTO2180 

2 340 IFM2>99THENM2=99 : RETURNELSE 
RETURN 

2350 PRINT@ 4 48 , " HOW MANY TONS-GE 
N CGO=>"; :GOSUB2385:IFZ>G(N)ORZ> 
G3 THENGOSUB2380:GOTO2180 
2360 D(N)=D(N)+Z*G4:G(N)=G(N)-Z: 
G3=G3-Z :G2=G2+Z :GOSUB2 370: A$=STR 
$(G2) :MID$(C$(K) ,24,2) =RIGHT$ ( A$ 
,2) :GOTO2180 

2370 IFG2>99THENG2=99 : RETURNELSE 
RETURN 

2380 PRINT@448, "NICE TRY CAPTAIN 
" ; P$ ( N ) : PRINTS 4 80 , "THAT 1 S TOO M 
ANY" ; :SOUND5,9:FORZ=1TO200 : NEXTZ 
: RETURN 

2385 INPUTA$:Z=ABS(FIX(VAL(A$) ) ) 
: RETURN 

2420 CC=0:C2=0:Z=0:IFT2=2THEN245 
0ELSEI FT1=0ANDDAYS> 1THENPRINT@ 41 
6, "YOU MUST SELL GOODS FIRST — ": 
GOTO1700 

2430 W5=VAL(MID$(C$(K) ,26,2) ) :F5 
=VAL(MID$(C$(K) ,28,2) ) :M5=VAL(MI 
D$(C$(K) ,30,2) ) :G5=VAL(MID$(C$(K 
) ,32,2) ) :XX=VAL(MID$(C$(K) ,9,1) ) 

2440 W6=60-RND(XX)*5:F6=39-RND(X 
X)*2:M6=INT(22-RND(XX)*1.5) :G6=1 
l-RND(XX) 

2450 PRINT@288 , "WE OFFER THE FOL 
LOWING FOR SALE <w> "W5 "WEAPONS 

" ; :PRINTUSING"$$###/WPN" ;W6 
2460 PRINT@352, "<f >"F5"FOOD 

" ; :PRINTUSING"$$###/TON" ;F6 
2470 PRINT0384, " <m> "M5 "MACHINES 

" ; :PRINTUSING"$$###/EA" ;M6 
2480 PRINT@416 , "<c>"G5"GEN CGO 

" ; :PRINTUSING"$$###/TON" ;G6 
2490 PRINT@448, "<e> exit this sc 
reen":PRINT" — YOUR SELECTION PLE 
ASE" ; :GOSUB3750: 

2 500 GOSUB3 900: PRINTS 352, STRING$ 
(154,32) ; :IFA$="W"THENT2=l:GOT02 
520ELSEIFA$="F"THENT2=2 :GOTO2800 
ELSEIFA$="M"THENT2=3:GOTO28 30ELS 
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EIFA$="C"THENT2=4:GOTO2860ELSEIF 
A$O"E"THENSOUND250,2 :GOTO2450EL 
SE2510 

2510 T2=2:GOSUB3850:GOTO1690 
2520 W7=W6 : IFT20C2 THENCC=9:C2 = 
T2 

2530 PRINT@288, "YOU WANT TO BUY 
WEAPONS, HUH i ? I'M ASKING $"; 

INT(W7)"EACH FOR" ;W5 : PRINT" WHAT 
WILL YOU OFFER ME ": INPUT "===>" ; 
A$:Z=Z+1:X=VAL(A$) 

2540 IFX=0THEN2450ELSEIFX<=CCTHE 
N GOSUB2700:GOSUB2750:GOTO2450EL 
SECC=X 

2550 IFX>=W7-RND(XX)THENGOSUB272 
0:GOTO2560ELSEIFX<W7-RND( INT(W7/ 
2) )THENGOSUB2710:GOSUB2750:GOTO2 
450ELSE2670 

2560 ONT2 GOTO2570, 2580, 2590, 260 
0 

2570 IFY>W5 THENGOSUB2 730 : GOSUB2 

7 20:GOTO2560ELSE2610 

2580 IFY>F5 THENGOSUB2730 : GOSUB2 

7 20:GOTO2560ELSE2610 

2590 IFY>M5 THENGOSUB2730 : GOSUB2 

7 20:GOTO2 560ELSE2610 

2600 IFY>G5 THENGOSUB2730 : GOSUB2 

720:GOTO2560 

2610 IFD(N)<1THEN2790ELSEIFD(N)< 
X THENGOSUB2740:GOTO2450ELSEIFD( 
N ) < ( Y*X ) THENGOSUB27 40 : GOT02 550 
2620 D(N)=D(N)-Y*X:ONT2 GOTO2630 
,2640,2650,2660 

26 30 W(N)=W(N)+Y:W5=W5-Y:W6=W6+R 

ND(XX) *10:GOTO2450 

2640 F(N) =F(N)+Y:F5=F5-Y:F6=F6+R 

ND(XX)*10:GOTO2450 

2650 M(N)=M(N)+Y:M5=M5-Y:M6=M6+R 

ND(XX)*10:GOTO2450 

2660 G(N)=G(N)+Y:G5=G5-Y:G6=G6+R 

ND(XX) *10:GOTO2450 

2670 IFRND(XX+Z)>10GOSUB2750:GOT 

02450 

2680 GOSUB2760:W7=W7-RND(INT(CC/ 

4)-l) :IFW7<=X THENW7=X+1 

2690 0NT2 GOTO2530, 2810, 2840, 287 

0 

2700 PRINT@416, "THAT 1 S NOT A DEC 
ENT BID, IS IT?" ; :GOTO2770 
2710 PRINT@416 , "YOU MUST BE KIDD 
ING" : GOTO2770 

2720 PRINT@416, ; :INPUT"OK! HOW M 
ANY DO YOU WANT TO BUY" ; A$ : Y=ABS 
(VAL(A$) ) : RETURN 

2730 PRINT@416 , "do not have that 

many — try again ":GOTO2770 
2740 PRINT@416 , "you do not have 
enough money ": GOTO2770 
2750 W6=INT(W6*1.1) :F6=INT(F6*1. 
L) :M6=M6+RND(3) : G6=G6+RND ( 4 ) : IFZ 
<6THENPRINT(§448 ,"WE DO NOT BARGA 
IN THAT WAY" : GOSUB2770 : GOTO2780 : 
ELSEGOTO2780 

2760 PRINT@416,"ok, we deal":GOS 
UB2770:PRINT@415,"I , LL OFFER YOU 

THIS NEW PRICE! " : GOSUB2770 : PRIN 
T@389 ,STRING$ (63,32): RETURN 
2770 SOUND5,5:GOSUB4020:RETURN 
2780 PRINT@480, "NOW I WILL RAISE 

PRICES ! " ; :GOTO2770 
2790 GOSUB2710:PRINT(§448,"YOU DO 
N'T HAVE ANY MONEY" : GOSUB2770 : PR 
INT@480,"YOU BETTER LEAVE THE MA 
RKET! " ; : GOSUB2770 : GOTO2510 
2800 W7=F6: IFT20C2 THENCC=6:C2 = 
T2 



2810 PRINT (§288, "YOU WANT TO BUY 
SOME FOOD STORESI WANT $"INT(W7) 
" FOR EACH"F5"T0N" :PRINT" WHAT W 
ILL YOU OFFER ME ": INPUT "===>"; A$ 
:X=VAL(A$) :Z=Z+1 
2820 GOTO2540 

2830 W7=M6:IFT2<>C2 THENCC=4:C2= 
T2 

2840 PRINT@288, "YOU WANT TO BUY 
SOME MACHINES? I HAVE" M5 " AT $" 
INT(W7) "APIECE" :PRINT" WHAT WILL 
YOU OFFER ME":INPUT"===>";A$:X= 
VAL(A$) :Z=Z+1 
2850 GOTO2540 

2860 W7=G6 : IFT20C2 THENCC=0:C2 = 
T2 

2870 PRINTS 28 8 , "DO YOU WANT SOME 
GENERAL CARGO? I HAVE "G5 "TONS A 
T $ " INT ( W7 ) "/TON" : PRINT" HOW MUC 
H WILL YOU PAY/TON" : INPUT" ===> " ; 
X: Z=Z+1 
2880 GOTO2540 

2920 PRINT@288,STRING$(32,233) ;" 
LEAVING "LEFT$(C$(K) ,8) ;" "LEFT$ 
(P$(N) ,15) "?" :PRINT(§3 52, " SELEC 
T YOUR NEXT MOVE!"," <d> HAVE A 
DRINK FIRST"," <b> BLAST OFF",," 
<S> SELL CONTRABAND"," <e> exit 
this screen"STRlNG$(10,32) ; 
29 30 GOSUB3900: IFA$="D"THEN3140E 
LSEIFA$="E"THEN3 380ELSEIFA$="S"T 
HEN3410ELSEIFA$O"B"THENSOUND2 55 
,2:GOTO2930 

2970 IFFP(N)<1000THENSOUND200,5: 
CLS3:PRINT@266,"GO BUY FUEL";:GO 
SUB4190:GOTO1680 

2980 CLS:GOSU33650:PRINT"SELECT 
YOUR DESTINATION" : PRINT" — choice 

planet distance — " ; 

2990 F0RC=1T015:IFC=K THENPRINTT 
A3(6) "=====> "LEFT$(C$(C) ,8)ELSEP 
RINT" <"CHR$ (C+96) "> "LEF 

T$(C$(C) ,8)" "VAL(MID$(C$(C) 
,9,1) )+VAL(MID$(C$(K) ,9,1) ) 
3000 I?C = 15THEN3020ELSEIFCO8THE 
N3030ELSEPRINT" PRESS <X> TO CON 
TINUE LISTING PRESS <Q> TO RET 
URN TO MENU OR MAKE SELECTIO 

N FROM ABOVE! " 

3010 GOSUB3900: IFA$="X"THENPRINT 

@96," " :GOTO3030ELSEIFA$="Q"THEN 

GOSUB3780:GOTO29 20ELSE3040 

3020 PRINT : PRINT" PRESS <X> TO R 

EPEAT THE LISTING" ;: GOSUB3900 : IF 

A$="X"THEN2980 

3030 NEXT 

3040 C=ASC(A$)-64:IFC<0ORC>15THE 
NSOUND9,5:PRINT"SELECT ONLY LETT 
ERS A-0" :GOSUB4190:GOTO2980ELSEI 
FC=K THENPRINT" YOU ' RE ALREADY TH 
ERE! ! ! " :SOUND9,5:GOSUB4190:GOTO2 
980 

3050 CLS : GOSUB36 50 : PRINT : PRINT" 

CHOOSE YOUR SPEED"," <1> SLOW", 
," <2> MODERATE",," <3> FAST",," 

<4> VERY FAST" 
3060 GOSU33900:X=VAL(A$) : IFX<10R 
X>4THENSOUND2 5 5,2 :GOTO3060 
3070 L$(N)=RIGHT$(STR$(10000+C) , 
4)+RIGHT$(STR$( 100+VAL(MID$ (C$ (C 
) ,9,1) )+VAL(MID$(C$(K) ,9,1) ) ) ,2) 
+RIGHT$(STR$(X) ,1) 

3080 GOSUB4280:GOSUB4240:CLS0:PR 
I NT (3 240 , " LI FTOFF " ; : FORC = 10TO1STE 
P-l: PRINTS 27 4, C; : SOUND200-5 *C , 5 : 
NEXT:CLS0 : F0RC=1T03 : GOSUB3670 : NE 



XT 

3090 FORC=2TO250STEPDAYS+2:CLS(R 
ND(3) ) :SOUNDC,1:NEXT:CLS0:GOSUB3 
710 : F0RC=1T015 : GOSU337 10 : SET ( RND 
(62) , RND (29) ,RND(8) ) : NEXT : PRINTS 
450 , "YOUR SUCCESSFULLY ON YOUR W 
AY" ; :FORC=1TO15:GOSUB3710:NEXT 
3100 PRINTS488,"HAVE A SAFE TRIP 
! " ; : FORC=1TO20:GOSUB3710:NEXT:RE 
TURN 

3140 T6=T6+1 :CLS0:GOSUB36 50:PRIN 
TSTRING$( 160, 175) STRINGS (32, 172) 
:PRINTSTRING$( 160,2 23) :?ORC=lT04 
: CC=3 20+C*6 : PRINTSCC , STRINGS (3,1 
31) ; :PRINTGCC+3 3,CHR$(128) ; :PRIN 
TSCC+6 5,CHR$(128) ; : PRINTSCC+97 , C 
HR$(123) ; : NEXT 

3150 F0RC=1T05 : PRINTS 198+RND( 20) 
,CHR$(168) ; : NEXT 

3160 IFT6>2THENPRINT@64, "YOU 1 VE 

HAD YOUR FILL-GO BACK " : SOUND5 , 5 : 

GOSUB4190-.GOTO2920 

3190 PRINT@64,"<1> BUY DRINKS 

<2> LEAVE BAR" ; 
3200 GOSUB3900:IFA$="1"THEN3340E 
LSEIFA$O n 2"THENSOUND255 , 2 :GOT03 
200 

3 2 30 IFY<RND( 3 ) THEN 3 280ELSE I F RND 
(2)=1THEN GOSUB3 580 :PRINTS352, "Y 
OUR DRUNK" :PRINT"YOU WERE ROLLED 
AND ROBBED OF " : X=RND ( INT ( D ( N ) /3 
) )+15:PRINTUSING"$$#####.##";X:S 
OUND10,10:D(N)=D(N)-X:GOSUB4190: 
GOTO2920ELSE3260 

3240 IFRND(2)=10RCC=99THENS0UND1 
,5:PRINTS320,"YOU MEET A POLICEM 
AN WHO CHARGESYOU WITH BEING DRU 
NK — YOU ARE FINED :";: Z=RND ( 1 50 
) :PRINTUSING"$$###.##";Z:PRINTST 
RING$ (90,32) ; : GOSUB3540 : D ( N ) =D ( N 
) -Z :GOSUB4190:GOTO29 20 
3250 IFRND(2)=1ANDT5(N)>0THENSOU 
NDl,5:PRINTS320,"YOU ARE CAUGHT 
CARRYING SOME", "CONTRABAND. ",,"Y 
OU GO TO COURT AND ARE FINED" :Z= 
RND ( T5 ( N ) ) :PRINTUSING"$$####.##" 
;Z:PRINT"YOU ALSO LOSE THE CONTR 
ABAND 1 " ; : GOSUB3540 :D(N)=D(N)-Z:T 
5 ( N ) =0 : GOSUB4190 : GOTO2920 
3260 GOSUB3 580 : PRINTS 3 52 , "YOU ME 
ET A MAN WHO OFFERS A DEAL <1> 
DEAL OR <2> NO DEAL " : SOUND5 , 5 : G 
OSUB3900: IFA$=" 2 "THEN29 20ELSEIFA 
$<>"1"THENSOUND250,2 :GOTO3260 
3270 IFRND(5)=1THEN3290ELSEGOSUB 
3300 : GOSUB3 580 :GOTO2920 
3 280 PRINTS 3 2, STRING$ ( 160,17 5) ; : 
GOTO2920 

3290 GOSUB3 540 :PRINTS320, "THE MA 
N WAS A COP— YOUR BUSTED! YOU A 
RE FINED $1000.00":D(N)=D(N)-100 
0:IFT5(N)>0THENPRINT" AND YOU MU 
ST GIVE UP ALL THE CONTRABAND 
" ; : T5(N)=0:GOSUB4190:GOTO2920ELS 
EPRINTSTRING$(63,32) ; -.GOSUB4190: 
GOTO2920 

3300 PRINT@6 4 , "THE MAN OFFERS TO 
SELL YOU SOME CONTRABAND FOR";: 
Z=RND( 1000) +500 :PRINTUSING"$$### 
#.##";Z:PRINT" <y>ES OR <n>0? 

N 

3310 GOSUB3900: IFA$="N"THENRETUR 
NELSEIFA$O"Y"THENSOUND250,2:GOT 
O3 310ELSED(N)=D(N) -Z :T5(N)=T5(N) 
+ Z : RETURN 

3340 Y=Y+1 :PRINTS64, "THANKS i 1 I T 



HAT WAS GOOD, YOUR BILL COMES 
TO" ; : SOUNDl , 5 : X=RND ( 25 ) +5 : PRINTU 
SING"$$##.##";X:D(N)=D(N)-X:GOSU 
34 190: PRINTS 480, STRINGS (30, 32) ; 
3 3 50 IFRND( 3 ) >1THENPRINT(§96 ,STRI 
NG$(32,175) ; : GOT03 190ELSEIFRND ( 3 
)=3THENCC=99:GOTO3 240ELSEGOSUB3 3 
00: IFRND(4)=4THEN3 290ELSEPRINT@9 
6, STRINGS (64, 175 ) ; :GOTO3190 
3380 IFT4O0THENPRINTS480, "ITS T 
00 LATE TO GO BACK !";: SOUNDl , 1 5 : 
GOTO2930ELSE1690 

3410 T7=T7+1 :CLS:GOSUB3650:GOSUB 
37 80 -.PRINT: I?T5(N) = 0THENPRINT " * * 
YOU'VE NO CONTRABAND TO SELL": SO 
UND5,5:GOSUB4190:GOTO2920ELSEIFT 
7>2THENPRINT"YOU'VE SOLD BEFORE, 
BETTER LEAVE" : S0UND5 , 5 : G0SUB4 1 9 
0:GOTO2920ELSE3420 

3420 PRINT" <f>IND A NEW BUYER", 
" <s>ELL IMMEDIATELY" ," <e>xit t 
his screen 

3430 PRINTS 3 2, STRINGS (3 2, 17 5) ; :P 

RINTS 256, STRINGS (32, 223) ; 

3440 GOSUB3920:IFA$="E"THENCLS:G 

OSUB36 50:GOSUB3780:GOTO2920ELSEI 

FA$="S"THEN3490ELSEIFA$<>"F"THEN 

SOUND255,2:GOTO3440 

3450 I?RND(T5(N) X250THEN3490ELS 

EGOSUB3580 : I FRND ( 5 ) =5THEN3 480ELS 

EPRINTS352, "YOU'VE FOUND A GOOD 

NEW BUYER" : GOSUB4020 :IFRND(9)=9T 

HEN3290 

3460 IFRND(3)=1THENPRINT" HOWEVER 
, HE JUST TOOK ALL YOUR CONTRAB 
AND WITHOUT PAYING FOR ITSO MUCH 
FOR NEW FRIENDS! i " : SOUNDl , 15 : T5 
( N ) =0 : GOSUB4190 : GOTO2920 
3470 PRINT "AND SHE MADE A VERY N 
ICE OFFER" : PRINTUSING" $$######.# 
#" ;T5(N)*5; : D ( N ) =D ( N ) +T5 ( N ) * 5 : T5 
( N ) =0 : SOUND10 , 5 : G0SUB4 190 : GOT029 
20 

3480 PRINTS352,"YOU COULD NOT FI 
ND A BUYER FOR THE CONTRABAND A 
ND HAVE ALERTED THE POLICE. YOU 
MUST LEAVE THE PLANET IMMEDIATE 
LY" : T4=l : T7=3 : S0UND5 , 10 : GOSUB419 
0:GOTO2920 

3490 GOSUB3580:IFRND(12)=1THEN35 
10ELSEPRINTS352, "YOU FOUND A QUI 
CK BUYER FOR THE CONTRABAND" ; : IF 

RND(2)=1TH EN PRINT" THE PRICE W 

AS ONLY " :Z=T5(N)*2-RND(T5(N) )/2 
:PRINTUSING"$S#####.##";Z; : SOUND 
5 , 5 : D ( N ) =D ( N ) +Z : T5 ( N ) =0 : G0SUB4 1 9 

0:GOTO2920 

3500 PRINT" & THE PRICE WAS GOOD 
" : Z=T5(N)*2.1: PRINTUSING" $$##### 
. # # " ; Z ; : S0UND5 ,5:D(N)=D(N)+Z:T5( 
N)=0:GOSUB4190:GOTO29 20 
3510 PRINTS385, "YOU WERE CAUGHT 
SELLING YOUR CONTRABAND. YOU 
'VE BEEN FINED" ; : PRINTUSING" $$## 
###.##" ;T5(N)*2: SOUNDl ,15: G0SUB3 
540:D(N)=D(N)-T5(N)*2:T5(N)=0:GO 
SUB4190:GOTO2920 

3540 PRINTS32,STRING$(9,169)LEFT 
$(C$(K) ,8)" JAIL" STRINGS (9, 16 6) 
; :FORC=64T0287STEP2 : PRINTSC , CHR$ 
(202)CHR$(207 ) ; : NEXT : PRINTSTRI NG 
S ( 32,169) ; :PRINTS2 3 2,STRING$(2,1 
28) ; : PRINTS 26 3, STRINGS (4,1 28 )CHR 
$(197) ; : RETURN 
3560 ' 

3580 CLS3:GOSUB3650 : FORC=138TO25 



6STEP3 2: PRINTSC,CHR$( 16 5) STRINGS 
(8,17 5)CHR$(170) ; : NEXT : F0RC=2 56T 

02 8 8STEP3 2 : PRINTSC , STRINGS ( 10 , 20 
7)CHR$(197)STRING$(8,207)CHR$(20 
2 ) STRINGS ( 12,207) ; : NEXT : PRINTSTR 
INGS(32,220) ; 

3 590 PRINTS106,CHR$(14 5) ; : PRINTS 
115,CHR$(146) ; : PRINTS 3 16 , CHRS ( 20 

2) CHR$(128)CHRS ( 197) ;: PRINTS 284, 
CHR$ (200) CHRS (128) CHRS (196) > = PRI 
NTS 252 , CHRS ( 17 4) CHR$ ( 128) CHRS (17 

3) ; 

3600 GOSUB3610:RETURN 

3610 PRINTS 352, STRINGS (159, 32) ; : 

P0KE1535,143:RETURN 

3650 PRINTS0," PL# : "N ; CHR$ ( 159 ) " 

star "CHRS (128) "merchant "CHRS (159 

) ; : PRINTUSING" DAY:###" ; DAYS ; :I 
FN=0THENPRINTS0,STRING$(8,207) ; : 
PRINTS23, STRINGS (9, 207) ; : RETURNE 
LSERETURN 

3670 PLAY"04;T2 55;L255;1;2;2;3;3 
; 4 ; 5 ; 6 ; 7 ; 8 ; 9 ; 10 ; 10 ; 11 ; 11 ; 12 ; 12 ; 1 
2 ; 11 ; 11 ; 10 ; 10 ; 9 ; 8 ; 7 ; 6 ; 5 ; 4 ; 3 ; 3 ; 2 ; 
2;1;1" : RETURN 

3690 PLAY"V31;L255;01" :PLAY"C;P2 
55" : RETURN 

3710 PLAY" L2 55 ; C ; D ; E ; F ; G ; A ; B" : RE 
TURN 

37 30 PLAY"T255;03;V31" :PLAYSTR$( 
RND(12) ) -.RETURN 

37 50 PRINTS 3 2, "PLAYER: " ;N; : PRINT 
USING" PROFIT=SS#########.##"? D ( 
N) ; : RETURN 

37 80 GOSUB37 50:PRINTS6 4,STRING$( 
6 4,175) ; :PRINTS6 5+RND(29) ,CHR$(R 
ND(7)*16+143) ; 

3790 FORXX=128T0159STEP4:IFRND(2 
) =1THENPRINTSXX, CHRS ( 168) STRINGS 
(3,175) ; : NEXT ELSEI FRND ( 2 ) =1THENP 
RINTSXX, CHRS (173) STRINGS (3, 175 ) ; 
: NEXTELSEPRINTSXX , STRINGS (4,175) 
; : NEXT 

3800 FORXX=160TO191STEP4:IFRND(2 
) =1THENPRINTSXX , CHR$ (14 5) CHR$ (12 
8) CHR$ (16 5) CHR$ (162) ; : NEXTELSEI F 
RND ( 3 ) =1THENPRINTSXX,CHR$ ( 180 )CH 
RS( 165) STRINGS (2, 175) ; : NEXTELSEP 
RINTSXX , CHR$ ( 195 ) CHR$ ( 16 4 ) CHR$ ( 1 
68)CHR$(165) ; : NEXT 
3810 FORXX=192T0224STEP4:IFRND(2 
) =1THENPRINTSXX ,CHR$ ( 128 ) CHRS ( 15 
2) CHRS (16 4) CHRS (173) ; : NEXTELSEI F 
RND ( 4 ) =1THENPRINTSXX , STRINGS (4,1 
28) ; :NEXTELSEPRINTSXX,CHR$(196)C 
HR$( 200) CHRS (160) CHR$ (164) ; -.NEXT 
3820 FORXX = 2 24T025 i d :IFRND(9)=1TH 
ENPRINTSXX,CHR$(252) ; : NEXTELSEI F 
RND(7)=1THENPRINTSXX,CHR$( 236) ; : 
NEXTELSEPRINTSXX,CHRS(128) ; : NEXT 
3830 FORXX=128T0159STEP4:IFRND(2 
)=1THENPRINTSXX,STRIMG$(4,175) ; : 
PRINTSXX+3 4, STRINGS ( 2,175) ; :PRIN 
TSXX+66,CHR$(17 5) ; : PRINTSXX+98 , C 
HR$(17 2) ; : NEXTELSENEXT 
3840 I FRND ( 2) =1THENXX = 13 2 + RND( 12 
) : PRINTSXX, STRINGS (4,175) ; : PRINT 
SXX+3 2 , CHRS (17 5) STRINGS ( 2 , 1 7 2 ) CH 
R$(175) ; :PRINTSXX+6 4,CHR$(17 5)+C 
HR$(170)+CHR$(16 5)+CHR$(175) ; :PR 
INTSXX+96 , CHR$ ( 17 5 ) CHR$ ( 170 ) CHR$ 
(165)CHRS(175) ; 

3850 PRINTS256, "city "LEFT$(C$(K 
),8)" liftoff "CHR$(128) "wt ";VAL 
( RIGHTS (C$(K) ,4) ) :?RINTSTRINGS(3 
2,131) ;: PRINT" — WHAT DO YOU WANT 
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TO DO NOW — " : RETURN 
3880 SOUNDl50,5:CLS3:PRINT@262, n 
PLAYER ";LEFT$(P$(N)+" 

" /15) ; :PRINT@294, "PRESS ANY 

KEY TO CONT. "; :GOSUB3900: RETURN 
3900 A$=INKEY$ 

3905 A$=INKEY$ : IFA$=""THEN3905EL 
SERETURN 

39 20 A$=INKEY$:C=C+1: IFC<9THENPR 
INT@263, "WATCH OUT FOR COPS!";EL 
SEPRINT@26 3,STRING$(19,223) ; :IFC 
>12THENC=0 

3930 IFA$=" "THEN3920ELSERETURN 
3950 B$=CHR$(150)+CHR$(182)+CHR$ 
(214) :B$=B$+B$+B$+B$+B$+3$ 
3960 A$=INKEY$ : I FA$<> " "THENRETUR 
NELSEPRINT@2 33,LEFT$(B$,15) ; :B$= 
RIGHT$(3$,17)+LEFT$(B$,1) : PRINT@ 
297,RIGHT$(B$,15) ; : PRINTS 26 5 , LEF 
T$(B$,1) ; :PRINT@279,LEFT$(B$ / 1) ; 
:GOTO3960 

3970 A$ = INKEY$ : I ?A$ <> " "THENRETUR 
NELSEPRINT@203,B$; : 3$=RIGHT$ ( B$ , 
3)+LEFT$(B$,l) :GOTO3970 
4010 GOSUB4020:GOSUB4020:RETURN 
4020 FORC=1TO(999-DAYS*10) :NEXTC 
: RETURN 

4050 PRINT@480 , "not enough money 
— TRY AGAIN! !"; rSOUNDl, 10: FORXX= 
1TO150:NEXTXX:PRINT(§4 48 ,STRING$ ( 
62,32) ; : RETURN 



4180 PRINT@448,STRING$(32,211) ; 
4190 A$=CHR$(128) : PRINT@ 480 , STRI 
NG$(3,223) "press"A$"any"A$"key"A 
$"to"A$"continue"STRING$ (3,223); 
: POKE1535, 223 :GOSUB3900 : RETURN 
4200 POKE359,126:RETURN 
4240 WT(N)=F(N)+1.3*M(N)+G(N)+2* 
W(N)+.01*FP(N)+1 . 5*WP(N)+. 3*R(N) 
: RETURN 
4280 Z=0 

4 290 XX=VAL(MID$(C$(K) ,9,1) ) : C=- 
Z+VAL(RIGHT$(C$(K) ,4) ) :IFWT(N)<= 
C THENRETURN 

4300 C=WT(N)-C:GOSU380:PRINT(§67, 
"SPACEPORT CONTROL MESSAGE ";: PRI 
NT(§128 , "-*"TAB( 11 ) "at tent ion "TAB 
( 30) "*-" :PRINT@192, "-* YOU ARE " I 
NT(C)"TONS OVER THE "TAB ( 30 ) " *- 
ALLOWABLE LIFT WEIGHT" : PRINT" -* 
TO LIFT OFF FROM " ; LEFT$ ( C$ ( K ) , 
8)TA3(30) "*-" ; 

4310 SOUND5,9:PRINT(§320,"-* YOU 
MUST BUY"INT(C)TA3(30) "*- BOOS 
T UNITS" ;: PRINTUSING" @$$###";XX 
*5:PRINT(3384 , "-*"TAB(30) "*-"; 
4320 FORCC=lTOC:D(N)=D(N)-5*XX:P 
RINT@416 , " = = = = = >"; : PRINTUSING" $ 
$########" ;D(N) ; :NEXT:GOSUB4130 : 
RETURN 
4330 END 



Program Listing 2. StarMerchant (for Disk) 



140 OPEN" I" ,1, "DATA" :INPUT#1,N:I 
FNONN THENCLOSE#l:CLS4:GOSUB36 5 
0:SOUND5,9:PRINT"NUMBER OF PLAYE 
RS DO NOT MATCH.. RESET TAPE RECO 
RDER AND RESTART THE GAME USING" 

N"PLAYERS" : END 
150 FORC=lTONN: INPUT# 1 , DB ( C ) ,D(C 
) ,FP(C) ,WP(C) ,R(C) ,P$(C) ,WT(C) ,W 
(C) ,F(C) ,M(C) ,G(C) ,L$(C) ,T5(C) :N 
EXT 

160 F0RC=1T015:INPUT#1,C$(C) :NEX 
T 

170 INPUT#1,DAYS 
180 CLOSE#l :GOTO460 
550 OPEN"0",#l,"DATA" 
560 PRINT#1,NN 

570 FORC=lTONN:WRITE#l,DB(C) ,D(C 
) ,FP(C) ,WP(C) ,R(C) ,P$(C) ,WT(C) ,W 
(C) ,F(C) ,M(C) ,G(C) ,L$(C) ,T5(C) :N 
EXT 

580 F0RC=1T015:WRITE#1,C$(C) :NEX 
T 

590 WRITE#1,DAYS 
600 CLOSE#l :GOTO470 

END 



ADOS 



ENHANCED, EPROM-ABLE 
DISK BASIC 



Now, you can supercharge Basic with an impressive array of extra features 
WITHOUT sacrificing compatibility! ADOS is compatible with virtually 100% of 
commercial software. Customizing utilities are provided to allow user-defined 
command abbreviations, baud rate, step rate, tracks per disk (35 or 40), support of 
double-sided drives, and more. After customizing ADOS, you can have it burned into 
an EPROM that plugs into the Disk Basic ROM socket, or just use it in RAM as a 64K 
disk utility. (EPROM + burning will cost about $20-we provide information 
concerning how you can have this done.) Features include: • repeat and edit of the 
last direct-mode command • 26 definable control-key abbreviations • automatic line- 
number prompts • DOS command • lowercase command entry (a fine complement to 
a Lowerkit or PBJ WordPak) • COPY (filename) to (drive number) • AE error override 
option • RAM command (64K) • RUNM command • text echoing to printer • ML 
monitor • text file scan • enhanced directory • error trapping • hi-res text utility 
included (42, 51, or 64 characters per line) 

"/ COULD NOT FIND ANY SOFTWARE THAT WOULD NOT RUN UNDER ADOS." 

THE RAINBOW, December 1984 
"/ LOVE ADOSI ...A GENUINELY FIRST RATE PRODUCT." 

Color Micro Journal, February 1985 
"/ WON'T PART WITH MY ADOS EPROM FOR ANYTHING ...NO COMPATIBILITY 
PROBLEMS." 

Hot CoCo.May 1985 

Disk $27.95 



THE PEEPER 



ML PROGRAM TRACER 



Monitor machine-language programs AS THEY ARE RUNNING! Peeper actually 
timeshares with the target program, giving FULL CONTROL as ML programs run. 
Switch instantly between watching regular program output and Peeper's trace of 
registers and stack on screen or printer. Inspect memory in any of 26 display modes. 
Execution speed can be varied from full speed to the barest crawl, or halted entirely, 
as programs run. Single-stepping, breakpoints, memory or register examine/change. 
Relocatable, supports 64K use (16K required) See February '85 review 
Disk $23.95 Tap« $21 .95 Assembler source listing Add 3.00 

FASTAPE THE NEXT BEST THING TO A DISK DRIVE 
Fastape allows cassette I/O at 3000 baud -TWICE NORMAL SPEED. It uses the high- 
speed (POKE 65495,0) mode, and makes it convenient to stay in this mode 
throughout. Features automatic adjustment of cassette and printer parameters when 
speed mode is changed. Control-key functions for many Basic commands and for 
changing speed modes Compatible with all file types, and can be used with 
Telewriter-64 and many other tape utilities. 

Tape. $21.95 (16K required) See July 83 review. 



SPECTROSYSJEMS 



No delay on personal checks 

Please add S2 00 shipping Sor 




11111 N. Kendall Drive. 
Suite 1 08 
Miami, Florida 33176 
(305) 274-3899 Day or 



:redit cards or COD s 



for the CoCo 
DISK SYSTEM 




XPNDR2 $39.95 each or 2/$76 
This prototype card features a 40 pin 
connector for projects requiring an on- 
line disk system or ROM paks. The 
CoCo signals are brought out to wire- 
wrap pins. Special gold plated spring 
clips provide reliable and noisefree 
disk operation plus solid support for 
vertical mounting of the controller. The 
entire 4.3*7 inch card is drilled for ICs. 
Assembled, tested and ready to run. 

XPNDR1 $19.95 each or 2/$36 
A rugged 4.3*6.2 inch bare breadboard 
that brings the CoCo signals out to 
labeled pads. Both XPNDR cards are 
double-sided glass/epoxy, have gold 
plated edge connectors, thru-hole 
plating and are designed with heavy 
power and ground buses. They're 
drilled for standard 0.3 and 0.6 inch 
wide dual in-line wirewrap sockets; 
with a 0.1 inch grid on the outboard end 
for connectors. 

SuperGuide $3.95 each 
Here is a unique plastic insert that 
aligns and supports printed circuit 
cards in the CoCo cartridge port. Don't 
forget to ORDER ONE FOR YOUR 
XPNDR CARDS 



Included with each XPNDR card 
are 8 pages of APPLICATION 
NOTES to help you learn about 
chips and how to connect them to 
your CoCo. 



To order or for technical informa- 
tion call: 

(206) 782-6809 

weekdays 8 a.m. to noon 

We pay shipping on prepaid orders. 
For immediate shipment send 
check, money order or the number 
and expiration date of yourVISAor 
MASTERCARD to: 



MICROSYSTEMS 




BOX 30807 SEATTLE, WA 98103 
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DYNACALC 



CoCo's Best & Fastest Spreadsheet System 

ACCLAIMED BY THE EXPERTS 

"DYNACALC is my choice for a CoCo spreadsheet" 
Dan Downard, RAINBOW, September, 1984. 



/^5\ 

RAINBOW 

CERTIFICATION 
SEAL 



7 




NOW 
ONLY 

$9995 



"Eat your heart out, Lotus 1-2-3!" 
Scott Norman, HOT CoCo, October, 1984. 

Built-in Features: 

51 x 24 Display with Lower Case 
Super-fast Smart Screen Refresh 
Auto-Repeat Keyboard Driver 
Keysaver (TM) repeats last command x times 
Disk Operating System (works just like ROM DOS) 
Easy communication with BASIC/DOS programs 
Two-way communications with PRO-COLOR-FILE ★ Enhanced* 
Outputs to ASCII Word Processors like Telewriter-64 
Fast 16-Digit Arithmetic with Scientific Functions 
Summation, Mean, and Standard Deviation Functions 
Logical Functions with String & Numeric Comparison 
String locate command to navigate large worksheets 
Sort full or partial worksheet by columns or rows 
Line, Bar, Hi/Lo/Close, Circle Graphs 
Full Graphics captioning and overlay facility 
Graphics Drivers for all popular Printers 
Joystick/Mouse Driver for Cursor Movement 
Works with any ROM versions, even JDOS 
33k Available Worksheet Space 
Up to 256 Columns or 256 Rows 
Can use VisiCalc worksheets & training materials 
On-screen Help Messages 

FOR 64K DISK SYSTEMS 

available from 



now with 

GRAPHICS! 



Jan Ffb tar Apr Vlav ' Jun Jul 5u5 SJ? Bel Nov Bet 



CANADA-CDN $129.95 
DATAMAN INTERNATIONAL 

420 FERGUSON AVE. N. 
HAMILTON, ONT. L8L 4Y9 
(416) 529-1319 AUSTRALIA 




PARIS RADIO 
161 BUNNERONG RD. 
KINGSFORD 2032 NSW 
(612) 344-9111 



COMPUTER SYSTEMS CENTER 

-*r~~ 42 Four Seasons Center #122 
e, Chesterfield, MO 63017 USA 
(314) 576-5020 
10 to 6 Mon.-Fri. 
or your local DYNACALC dealer 

Price US$99.95 
Outside North America add $10 postage 

DYNACALC Reg. U. S. Pat. Off. 
Lotus and 1-2-3 are trademarks of Lotus Development Corp. 
PRO-COLOR-FILE is a trademark of Derringer Software 
Telewriter-64 is a trademark of Cognitec 
VisiCalc is a trademark of VisiCorp. 
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effects of inflation on your income. 



Assess the 

The negative effect of inflation on Amer- 
ica's buying power has been evident for 
some time. Although economists tell us infla- 
tion is now under control, its present annual 
rate of increase is still 3 to 5 percent. And no 
one's earnings remain unaffected. 

Each month the government releases fig- 
ures indicating how much the prices of cer- 
tain consumer items have increased during 
the month. Economists average the in- 
creases, computing that month's total infla- 
tion rate. Monthly averages are compiled to 
calculate the annual rise in the Consumer 
Price Index, which compares current costs to 
costs the year before. 

High inflation rates adversely affect your 
earning power. If, for example, you made 
$15, OCX) in 1975, you would need to earn 
$32,896.67 in 1985 to keep up with inflation. 
There are, however, other facts that you 
should keep in mind. First, the CPI is linked 
to the costs of goods and services such as 
food, utility costs, gasoline, housing, and so 
on. Therefore, inflation does not affect every 
household equally. A rise of 12 percent in 
housing costs would influence your income 
only if you were in the market for a house. 
Furthermore, a family of seven would prob- 
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ACTUAL INFLATION 

BASED ON $15,000.00 IN 1975, THE FOL- 
LOWING AMOUNT IS NEEDED TO KEEP IN 
LINE WITH INFLATION: 





INFLA- 




ADJ. 


YEAR: 


TION: 


CHANGE 


AMOUNT 


1976 


9.10% 


$ 1,365.00 


$ 16,365.00 


1977 


5.80% 


$ 949.17 


$ 17,314.17 


1978 


6.50% 


$ 1,125.42 


$ 18,439.59 


1979 


7.70% 


$ 1,419.85 


$ 19,859.44 


1980 


11.30% 


$2,244.12 


$22,103.56 


1981 


13.50% 


$ 2,983.98 


$ 25,087.54 


1982 


10.40% 


$2,609.10 


$ 27,696.64 


1983 


6.10% 


$ 1,689.50 


$29,386.14 


1984 


3.80% 


$ 1,116.67 


$30,502.81 


1985 


4.00% 


$ 1,220.11 


$31,722.92 


1986 


3.70% 


$ 1,173.75 


$ 32,896.67 



Fig. 1 . Sample Printout of Actual Inflation Fig- 
ures 



System Requirements 

16K RAM 
Extended Color Basic 
Printer Optional 



ably be more affected by a rise in food costs 
than a family of three. 

Using the Program 

When you load the program (see Listing) 
from disk or tape, the menu presents four 
options. The first demonstrates the effects of 
inflation for the years 1972-1986. You must 
submit the year to begin the projection and 
the amount earned. (If you can't remember 
how much you earned, consult a copy of your 
income-tax return— it should contain the 
necessary information.) The figures for sub- 
sequent years (up to 1986) appear on the 
screen, and you have the option of sending 
the data to the printer. Refer to Fig. 1 for a 
sample printout. 

The second option projects the future ef- 
fects of inflation; it would be helpful in eval- ~ 
uating life-insurance or savings plans. With 
this application, you are not limited to 1972- J 
1986. If you wanted to know how much you ^ 
would need to earn in the year 2000 if you 6 
are presently earning $25,000, you would J& 
submit the beginning year (1985), the earn- J 
ings ($25,000), the ending year (2000), and | 
the average rate of inflation (4 percent). The Jj 



This program is available on our Instant CoCo cassette. 
See the Instant CoCo ad elsewhere in this issue. 



instant 

lijzCoCoi 



projection in Fig. 2 shows that you would 
need to make $45,023.59 in the year 2000 to 
maintain your buying power. 

The third option is a tutorial; it lists the rates 
used in the program. The fourth option ends 
the program and erases it from memory. 



PROJECTED INFLATION 

BEGINNING YEAR: 1985 
AMOUNT $25,000.00 
EST. INFLATION 4.0% PER YEAR 
PROJECTED AMOUNT NEEDED IN YEAR 
2000: $45,023.59 

Fig. 2. Sample Printout of Projected Inflation 
Figures 



Lines 1060-1190 contain the printer sub- 
routines. The codes, CHR$(15) and CHR$(14), 
in lines 1130 and 1150 turn the underline 
function on and off, respectively. Change 
them if your printer codes are different. 

Updates 

The program's estimated inflation rate for 
1985 is 4.0 percent; for 1986, it is 3.7 per- 
cent. When the real rates are available, you 
can change the first two numbers in DATA 
line 180 to reflect the new figures. You can 
also modify the program for future use by 
adding years to the actual inflation applica- 
tion (option 1). Add years prior to 1972 to the 
end of line 180 and years after 1985 to the 



beginning of line 180. Do not omit the zero 
at the end of the line; it functions as a stop. 
In addition, you must change lines 160, 400, 
420, 430, 630, 1280, and 1320. 

The program has many useful applica- 
tions. Employees have used it to convince 
employers to give them a raise; employers 
have used it to determine whether wage in- 
creases have been fair to their employees. I 
welcome your questions regarding the pro- 
gram and would be happy to help with mod- 
ifications. Please enclose a self-addressed, 
stamped envelope for my reply. ■ 



Address correspondence to J.D. Ray, 5065 
France Ave., N. Charleston, SC 29406. 



Program Listing 1. Inflation 

60 CC=172:F0RVV=1T06 

70 CLS : PRINT@CC , " INFLATION" 

80 COCC-32 

90 FOR Z=1TO250:NEXTZ 

100 NEXTVV 

110 PRINT@ 202 , " BY J. D. RAY" 
120 PRINT (§233, "COPYRIGHT 1985" 
130 FOR J=1TO950:NEXTJ 
140 CLEAR 100 

150 DIM INF(15) ,A(12),R(12) ,M(50 

) 

160 F0RX=1T015 : READINF ( X ) :NEXT 
170 'INFLATION RATES LISTED IN 1 
80 ARE FOR 1985-1972, IN THAT OR 
DER 

180 DATA 3.7,4.0,3.8,6.1,10.4,13 
.5,11.3,7.7,6.5,5.8,9.1,11.0,6.2 

,3.3,0 

190 Q=0:D=0:MOD=0:SIG=0 

200 H$="#####.## B :P$="##.#":Z$=" 

$$###,###.##" 

210 T$="$###,###.##":D$="####### 

.##":E$="###.##" 

220 STA$="ACTUAL INFLATION" 

230 PRO$="PROJECTED INFLATION" 

240 K$="APPLICATION" 

250 YEAR$=" " 

260 CLS : PRINT@167 , "PROGRAM APPLI 
CATION" 

270 PRINT@228,"<1> ";:PRINTSTA$ 
280 PRINT@260,"<2> ";:PRINTPRO$ 
290 PRINT@292,"<3> TUTORIAL" 
300 PRINT@356,"<4> END" 
310 PRINT@420, "SELECTION #: " 
320 MENU$=INKEY$ : IF MENU$="1"THE 
N GOTO 360 

330 IF MENU$="2" THEN GOTO 770 

340 IF MENU$=" 3 "THEN 1230 

350 IF MENU$=" 4 "THEN 1200 ELSE 3 

20 

360 CLS 

370 PRINT" STRAIGHT APPLICA 

TION" 

380 PRINT 

390 PRINT " ENTER YEAR TO BEGIN AP 
PLICATION" 

400 PRINT" BETWEEN 1972-1 

986" : PRINT 

410 INPUT "ENTER YEAR (19XX): "; 
YEAR 

420 IF YEAR<1972 OR YEAR>1986 TH 
EN PRINT" PLEASE USE YEAR BETWE 



EN 1972 - 1986l":S 

OUND 150,4:GOTO390 

430 X=1986-YEAR:KK=X:YR=YEAR 

440 PRINT : PRINT " ENTER AMOUNT TO 

BEGIN APPLICATION: " :PR 

INT 

450 INPUT "AMOUNT $ ";A 
460 AM=A 

470 IF A<0 THEN PRINT " ENTER A PO 
SITIVE AMOUNT - PLEASE" : GOTO450 
480 CLS:PRINT@1, "BASED ON";:PRIN 
TUSINGZ$;AM; :PRINT" IN "YR" , THE 

FOLLOWING AMOUNT IS NEEDED TO 
KEEP IN LINE WITH INFLATION:" 
490 PRINT" YEAR: RATE: A 
DJ. AMOUNT" 
500 L=160:M=141 
510 IFQ=10 THENRETURN 
520 Q=0:M=141:L=160 
530 1=0: 

540 PRINT@L , YEAR ; : PRINTTAB ( 19 ) ; : 

PRINTUSINGZ$;A 

550 Q=Q+1 :YEAR=YEAR+1 

560 I=A*INF(X)/100:A=A+I 

570 L=L+32:M=M+32:Q=Q+1 

580 IF Q=10 THEN GOSUB710 : GOSUB4 

80 

590 PRINT@L , YEAR ; : PRINTUSINGH$ ; I 
NF(X) ; :PRINT"%"; : PRINTTAB ( 19 ) ; :P 
RINTUSINGZ$;A 

600 IF PR$="Y"THENGOSUB1170 

610 YEAR=YEAR+1:X=X-1 

620 IF Q>10 THEN Q=0 

630 IF YEAR>1986 THEN 650 

640 GOTO560 

650 IF PR$="Y"THENPRINT#-2:PRINT 
#-2 : PRINT# -2 :GOTO190 
660 PRINT: INPUT"WOULD YOU LIKE A 
PRINTED COPY OF THIS CHART? ( 
Y/N) " ;PR$ 

670 IF PR$="Y"THENGOTO1060 
680 GOTO190 
690 PRINT 

700 FOR P=1TO500:NEXTP 

710 PRINT : PRINT" HIT <ENTER> 

TO CONTINUE" ; 

720 EXEC44539 

730 RETURN 

740 PRINT" HIT <ENTER> TO CONT 
INUE" ; :PRINT:PRINT 
750 GOTO190 

760 'PROJECTED INFLATION APPLICA 
TION 

770 CLS:D=0 



780 PRINT" PROJECTION" 
790 PRINT : PRINT " THIS IS A PROJ 
ECTION OF THE EFFECT INFLATION 

WILL HAVE ON YOUR DOLLARS IN 
THE FUTURE. YOU WILL NEED TO 

ENTER THE YEAR TO BEGIN TH 

E PROJECTION, THE AMOUNT TO BE 

PROJECTED, THE YEAR TO END 

THE PROJECTION," 

800 PRINT" AND THE ESTIMATED I NFL 

ATION RATE FOR THE PERIOD. 

THERE ARE NO YEAR LIMITATIONS TO 
THIS APPLICATION. THIS, OF 

COURSE, IS AN ESTIMATE." 

810 GOSUB710 

820 CLS:PRINT:PRINT "ENTER THE Y 
EAR TO BEGIN THE PROJECTION: 

H 

830 INPUT "YEAR: " ; YR 

840 PRINT : PRINT "ENTER THE AMOUN 

T TO BE USED IN THE PROJECTION: 

H 

850 INPUT" AMOUNT: ";DD 

860 PRINT : PRINT" ENTER THE YEAR T 

0 END THE PROJECTION:" 

870 INPUT " END YEAR: ";YS 

880 PRINT: PRINT "ENTER THE AVERAG 

E ESTIMATED IN- FLATION RATS: (P 

ER YEAR) " 

890 INPUT"EST. RATE: " ; RATE 
900 P=YS-YR 

910 FV=DD*(1+RATE/100) ~P 

920 D=0:CLS:PRINT#D, " P 

ROJECTION" 

930 PRINT#D:PRINT#D, "BEGINNING Y 

EAR: " , : PRINT#D , YR : PRINT#D 

940 PRINT#D, "AMOUNT", :PRINT#D, US 

INGZ$;DD:PRINT#D 

950 PRINT#D, "EST. INFLATION" ,: PR 
INT#D,USINGP$;RATE; :PRINT#D, " % 

PER YEAR" :PRINT#D 
960 PRINT#D, "PROJECTED AMOUNT NE 
EDED IN YEAR" ;YS; " : " ; 
970 Q$=INKEY$ 

980 PRINT@363," " ; : PRINTUSINGZ$ ; 
FV 

990 IF D=-2 THEN PRINT# -2 , USINGZ 

$;FV:D=0:GOTO7 40 

1000 FORL=1TO50:NEXTL 

1010 IF Q$=CHR$(13)THEN GOSUB104 

0 

1020 PRINT(§363," 
1030 GOTO 970 

1040 PRINT"WOULD YOU LIKE TO HAV 
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E A PRINTEDCOPY OF THIS PROJECTI 

ON? (Y/N) " :INPUTCC$ 

1050 IF CC$="Y"THENGOTO1060ELSE7 

40 

1060 ' PRINTER SUB-ROUTINE 
1070 X=KK 

1080 IF MENU$="1" THEN PRINT#-2, 
TAB (16) ; :PRINT#-2,STA$:GOTO1100 
1090 IF MENU$="2" THEN PRINT#-2, 
TAB (30) ; :PRINT#-2,PRO$:GOTO1190 
1100 PRINT#-2 
1110 A=AM : YEAR=YR 

1120 PRINT#-2," BASED ON ";: 

PRINT#-2,USINGZ$;A; :PRINT#-2 / n I 

N "YEAR", THE FOLLOWING" : PRINT* - 

2 i "AMOUNT IS NEEDED TO KEEP IN L 

INE WITH INFLATION: " 

1130 PRINT#-2,CHR$(15) 1 UNDERLIN 

E 

1140 PRINT#-2," YEAR: INFLATION 
: CHANGE ADJ. AMOUNT" 

1150 PRINT#-2,CHR$(14) 1 END ENDE 
RLINE 

1160 GOTO 480 

1170 PRINT#-2," " ; : PRINT# -2 , YEAR 
; :PRINT#-2 / USINGD$;INF(X) ; : PRINT 
#-2,"% "; :PRINT#-2,USINGT$;I; : 
PRINT#-2 f " " ; : PRINT* -2 , USINGZ$ 

;A 

1180 RETURN 

1190 D=-2:GOTO930 

1200 'END ROUTINE 

1210 CLS:PRINT:INPUT"ARE YOU SUR 
E? PROGRAM WILL BE ERASED!! ( 

Y/N) ";ED$ 



1220 IF ED$="Y"THENPOKE113,0:EXE 
C40999:IF ED$="N"THEN190 
1230 CLS:PRINT" INFLATIO 
N " 

1240 PRINT : PRINT " THIS PROGRAM A 
TEMPTS TO PRO- VIDE THE USER 
WITH THE EFFECTS OF INFLATION 0 
N YOUR HARD EARNED DOLLAR. 

THIS PROGRAM CAN BE USED IN 
TWO WAYS: " 
1250 GOSUB690 

1260 CLS:PRINT:PRINT" 1) THE ACT 
UAL APPLICATION LETS YO 

U SEE THE EFFECT OF INFLATI 
ON BETWEEN THE YEARS OF 1972 

- 1985. THE ANNUAL INFLATI 
ON RATES ARE LISTED WITH TH 




E APPLICATION. " : PRINT : GOSUB690 
1270 CLS-.PRINT" THE INFLATION R 
ATES USED WERE FOUND IN 'U.S. 
NEWS AND WORLD REPORT' THE IN 
FLAT I ON RATE FOR 1985 IS EST 

IMATED AT 3.7%. THE RATES U 

SED ARE: " : PRINT 
1280 X2=14:FORXl=1972T01985 
1290 PRINTX1;" " ; INF ( X2 ) ; " % " , 
1300 X2=X2-1:NEXTX1 
1310 FOR S1=0 TO 14:TT=INF(S1)+T 
T : NEXT 

1320 TT=TT/14: PRINT" AVERAGE: ";: 
PRINTUSING P$;TT; :PRINT"%" 
1330 GOSUB700 

1340 CLS:PRINT:PRINT" 2) THE PRO 
JECTION APPLICATION ALLOWS 
THE USER TO USE ANY YEAR AN 

D ANY INFLATION RATE TO PROJ 

ECT FUTURE EFFECTS OF INFLATI 
ON ON OUR DOLLAR. " -.PRINT 
1350 PRINT" 3) END WILL ERASE PR 
OGRAM FROM MEMORY .": GOSUB6 90 

1360 CLS:PRINT:PRINT" REMEMBER T 
HAT INFLATION RATES ARE AVERAG 
ES OF THE ACTUAL IN- CREASES IN 

CERTAIN CONSUMER PRODUCTS. 

THEY REFLECT THE COST OF FO 

OD, HOUSING, UTIL- ITIES, AND 

OTHER ESENTIALS. " 
1370 PRINT : PRINT " ENTER YEARS AS 

19XX AND DOLLAR AMOUNTS WITHOU 
T COMMAS. " :GOSUB690 
1380 GOTO 190 

END 



EUREKA! 



L.A. We got it— you found us! 



Lifetime Guarantee 

DISKS 

Bulk . . . .99Cea. 
Sentinel $1. 29 ea 


Dot Matrix 

PRINTERS 

as low as 
$199 

Panasonic KXP1090 
Daisy Wheel $289 


SOFTWARE 

over 180 titles 
discounted 

Games up to 50% 

Books 20% 

All others . . .10% 


Hi Resolution 

MONITORS 

start at 
$89 

Zenith 12" green 
Color/sound $195 


5 1 /4 Half Height 

DISK DRIVES 

$75 

Bare Hi-Tech 
W/Case/Pwr$139 
DSTeac . . .$ 95 


Direct Connect 

MODEMS 

$59 

Volks 300 baud 

1200 baud auto $217 
Hayes comp Smart 299 


SYSTEMS 

64K Color Com- 
puter by Tano 
$119 

Zenith 256K 2dr 
Ser/Par/RGB/Mon 
Turto mode $1599 


MISCELLANEOUS 

Keyboards . . $59 
DiskCases . .$17 
Printer Int . . .$48 
Video Driver .$24 
Power Strip . .$19 
Swivel Base .$19 
.... more .... 


PARTS 

•EPROMS -ROMS 

•CONTROLLERS 
•MEMORY DRAMS 
•CABLES •KITS HCS 
•PAPER •LABELS 
•RIBBONS 
•DAISY WHEELS 



SMALL 

.O.S. OPERATING 

system 

S.O.S. IS A SMALL OPERATING SYSTEM THAI RUNS ON A 64K 
RS™ COLOR COMPUTER DISK EXTENDED BASIC SYSTEM. 
S.O.S. CONTAINS CONFIGURABLE DRIVERS FOR ALL THE 
NORMAL I/O ON A SYSTEM. THIS INCLUDES KEYBOARD, 
SCREEN, PRINTER AND DISKS. IT LEAVES 54,000 BYTES FOR 
PROGRAMMING AND TEXT SPACE. S.O.S. CAN USE 35-40, OR 80 
TRACK DISK DRIVES, SINGLE OR DOUBLE SIDED, ALL 
INTERMIXED. IT HAS 91 VECTORS OR ENTRY POINTS TO 
ALLOW THE USER EASY ENTRY TO THE ROUTINES OF S.O.S. 
THE PRINTER CAN BE CONFIGURED FOR 7 OR 8 BIT OUTPUT 
AND FOR <C.R.> OR <C.R. & L.F.> OR <LF>. PATCHES ARE 
AVAILABLE FOR "TELEWRITER-64", "ELITE-WORD", THE 
MICRO-WORKS "EDITOR", "ASSEMBLER", & 
"DISASSEMBLER". S.O.S. HANDLES SEQUENTIAL OR RANDOM 
FILES (RANDOM UP TO 32000 RECORDS). UP T0 15 FILES OPEN 
AT ONCE. UP TO 8 DISK DRIVES (SIDES). IF YOU HAVE THE 
MICRO-WORKS PACKAGES, THEN S.O.S. IS A MUST. YOU'LL 
NEVER GO BACK TO RUNNING OR WRITING SOFTWARE UNDER 
BASIC AGAIN. "TELEWRITER" UNDER S.O.S. HAS 39K OF TEXT 
SPACE, REPEAT KEY (FOR EXPANDED KEYBOARDS) PLUS CAN 
USE ALL THE CAPABILITIES OF S.O.S. PATCHES FOR OTHER 
PROGRAMS ARE AVAILABLE OR BEING WRITTEN FOR RS T " 
"EDITASM", DUGGERS GROWING "C", DEFT "PASCAL". $49.95 
♦ $3.00 SHIPPING & HANDLING. N.J. RESIDENTS ADD 6% 
SALES TAX. 

CALL OR WRITE: S0ISTMANN ENTERPRISES, INC. 
P.O. BOX 257 P.O. BOX 330 

BUDD LAKE, N.J. 07828 WEST BERLIN, N.J. 08091 
(201) 347-0763 (609)768-4183 



H£\ POLYGON COMPUTERS 

L ^ 1316 Wllshlre Blvd.. Suite 206 ' 1 

Los Angeles, CA 90017 

(213) 483-8388 

Ca. Res. 6V2% tax Shipping: $2 Software 

Visit our Retail Store Charges: $5 Hardware 
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GREAT COCO PRODUCTS 




MARK DATA DOES IT AGAIN! 
Jus* in time for the holiday season! 





The Greatest Hi-Res Graphic Arcade Game Ever Written for Your CoCo 

By Rob Shaw, Author of Tut's Tomb 
Welcome Shock Trooper Squad Commander! 

Intelligence has intercepted a coded message 
revealing a plan to conquer Earth. 
Four of your Shocktroopers must 
infiltrate the heavily defended under- 
ground enemy base and steal all of 
their secret TRG-5 attack saucer 
sub-assemblies. Return them to our 
scientists for analysis. This secret 
information is crucial to o ur defense 

Good Luck! 

Also: Presenting the Sixth and Most Challenging of our Adventures 

By Bob Withers and Steve O'Dea 





THE 



VORTEX 



FACTOR 




The Vortex Factor! What is it? What secrets does it 
hold? The seeker of treasures through time and space 
must find out! From the coliseum of ancient Rome to 
the futuristic world of tomorrow 

Join us in an unforgettable > 
odyssey. i 



Other Exciting Adventures in 
O ur Popular Series 

Calixto Island Shenanigans 
Sea Search Trekboer 
Black Sanctum 

All Games-Cassettes $24.95/ Discs $27.95 
32K required 




GREAT BARGAINS ON COCO DISC DRIVES! 



Single Drive (SSDD) in Dual Cabinet w/Controller $299.95 

Additional Drive 89.95 

Two Drives (SSDD) in Dual Cabinet w/Controller 384.95 

Single Drive (DSDD) in Dual Cabinet w/Controller 339.95 

Additional Drive 11*95 

Two Drives (DSDD) in Dual Cabinet w/Controller 449.95 

Dual Cabinet/Power Supply 79.95 

Disc Controller (Radio Shack or j & M) 139.95 

Connecting Cable 24.95 

Radio Shack DOS ROM 1.1 or j/DOS w/Manual 39.95 



QUALITY VIDEO MONITORS 

SaKata Color SC-100 ^N nV * 1 

High Quality 13" monitor. « 1Q qqe« 
Sharp, brilliant colors. 

CG S Amber Screen ^ ^ K 

12" 20 MHZ monitor / 
with DELUXE TILT 7$119.95^T 



SWIVEL BASE. 




UNIVERSAL VIDEO DRIVER 

Carefully 
engineered to 
work with 
ALL color 
computers & 
ALL composite 
monitors. 

PURCHASED WITH A MONITOR $24.95 




PRINTERS 



Star Gemini SG-10 

New model for 1985 



■IL 





7^ 



SUPER PRO KEYBOARD 

Why pay more? The best is 
only $59.95*. 

♦Computers produced after approxi- 
mately Oct., 1982 require an additional 
plug adapter. Please add $3.95. 



COCO — UTIL 

Coco Util is a valuable utility program 
that allows you to transfer Color Com- 
puter disc files to your MS-DOS 
machine. Also transfer vJLJ, 
MS-DOS files to a 

Color Computer disc . ^$29,952 



Great new utility. 



PCX-II 

We now offer IBM PC-XT 
compatible computer 
systems. Don't settle for a 
Tandy 1000 or other standard PC until 
you check our systems and prices. 
Starting at $865. 



NEED MORE 
MEMORY? 

64K Memory 
Expansion Kit 




ACCOUNTING SYSTEM 

Ideal for small businessman. 
Process income and expenses 
Prepare detailed reports.^^-^^; 




ORDER ENTRY SYSTEM 

Enter orders, print shipping 
papers and invoices.* - 



EASY FILE DATA MANAGEMENT 

Keep track of your investments, com- 
puter magazines or record collection. 

*All business programs require 32K, 
an 80-column printer ^<^q^ 
and one disc drive. 



SHIPPING: All orders under $100 please add $2 regular, $5 air. All orders over $100 please add 3% regular, 8% air. California residents please add 6% sales tax. Orders outside the continental 
U.S., check with us for shipping amount; please remit U.S. funds. Software authors— contact us for exciting program marketing details. We accept MasterCard and VISA. Distributed in 
Canada by Kelly Software. 




Department H 



FREE— Send for our free catalog flier. 



Mark Data Products 



24001 ALICIA PKWY., NO. 207 • MISSION VIEJO, CA 92691 • (714) 768-1551 



DATABASE MANAGEMENT 

by William S. Bonnell 



This program is available on our Instant CoCo cassette (",*(( "A ■ 
See the Instant CoCo ad elsewhere in this issue. I wUH j__J 




This "Master Your 
Data" redux is an 
updated program 
that sports a 
spooler, help file, 
and new report 
features. 



Some Added Mastery 



This new version of the Database Man- 
ager program, which originally ap- 
peared in the December 1984 issue of HOT 
CoCo, p. 48, under the title "Master Your 
Data," contains many significant improve- 
ments, several of which were suggested by 
readers. See Table 1 for a full list of the pro- 
gram's features. 

To start the program, type in Listing 1. If 
you have Disk Extended Color Basic (DECB) 
1.1, be sure to modify the spooler with List- 
ing 2 because that part of the program makes 
calls to machine-language routines in ROM. 
Credit for the spooler belongs to Steve Good, 
"Print Spooling Will Increase Your Through- 
put," The Rainbow, June 1983, p. 246, and 
Damon Swanson, "Make the Good Spooler 
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Better," The Rainbow, May 1984, p. 23. 
Credit for the machine-language sort goes to 
William Barden, "Machine Language Sort, 
Part II," TRS-80 Microcomputer News, June 
1982, p. 13. Database Manager has checks 
for ensuring that you have typed machine- 
language programs correctly. Be sure to save 
your program on disk before running it the 
first time. 

System Requirements 
32K RAM minimum 
64K RAM to use the spooler 
Disk Extended Color Basic 
Disk Drive 
Printer 



Enter codes for your printer in line 40, 
which is already set up for an Okidata-92 at 
9,600 baud. This is not necessary if your are 
printing at 600 baud without special features. 

If you intend to use the spooler, don't start 
the program while operating from a 64K 
RAM configuration. Do a cold start first by 
typing POKE 1 13,0: EXEC 40999. Then type 
RUN'TILES +". On the first run of the day, 
the program loads the machine-language 
sort. Then you'll be asked whether you want 
to use the upper 32K for a spooler. If not, you 
probably have a different version of DECB. (If 
PEEK(&H10D) is 215, you have DECB 1.0. If 
it is 216, then you have the 1.1 version.) 
When you run the database again without 
cold starting, you won't be prompted for this 



information, and the spooler and sort will re- 
main in effect. 

Once you've answered the spooler prompt, 
the main menu will appear. If you choose an 
option without first selecting a file, you'll be 
prompted for the file name. The program re- 
tains the current file name in memory until 
you change it, unless you use the kill, files, 
or backup option. You need to respecify the 
working file when using these commands. 
This happens because a clear command, 
which clears all variables, is used to free up 
memory before they are used. 

Exercising Your Options 

To gain a better understanding at this 



field (\ to quit) 


length 


1 LAST NAME 


?25 


2 FIRST NAME 


? 15 


3 ADDRESS 


?30 


4 CITY 


? 10 


5 STATE 


?2 


6 ZIP 


?5 


7 POINTERS 


?6 


8 \ 




Fig. I. A Sample Mail List 





record 1 
1 LAST NAMEiBO 



2 FIRST NAME:WILLIAM 

3 ADDRESSrS 



4 CITY: ROCHESTER 

5 STATE :NY 

6 ZIP: 14626 

7 POINTERS: 



record 2 
1 LAST NAME:QUIT . . 



Fig. 2. The Add Mode 




point, create the file definition of the mailing 
list in Fig. 1. Choose the define (D) option on 
the main menu, enter the fields and lengths, 
and press the shift-clear key combination to 
stop input. The last six characters of all files 
should be kept for pointers that will be used 
with the indexing function for forward and 
backward linking of records. Make any nec- 
essary corrections and then print out the 
data. If you make a mistake in a field name, 
press the enter key for the length and you'll 
be prompted again for the field name. 

When you choose add (A) from the main 
menu, you'll see the first line of Fig. 2 with 
dots to indicate each field length. Add as 
many records as you wish. To select the dis- 
play mode, type "Quit" at the beginning of 
any field line. This allows you to make cor- 
rections and type A to get back into the add 
mode or return to the main menu. The dis- 
play mode is shown in Fig. 3. If more fields 
have been defined than fit on the screen, a 
second screen is displayed automatically 
after pressing the enter key. Field names can 
be left blank in the file definition to save 
space on the screen for data. The bottom of 
the view screen displays the keystroke com- 
mands available in this mode. See Table 2 for 
a list of these commands and their meanings. 

When you specify the kill (K) command, 
the program prompts you for a yes or no an- 
swer to avoid accidental erasure of a data- 
base. If your answer is Y for yes, the program 
deletes all the files of the file name with the 
extensions DEF, DAT, RP-, and LB-. (The hy- 



record# 1 
1 LAST NAME:BONNELL 



FIRST NAME:WILLIAM 
ADDRESS:S. 

CITY:ROCHESTER 
STATE:NY 
ZIP: 14626 
POINTERS: 
enter < - Q#URADPNLS? - 

Fig. 3. The Display Mode 



mmmm 

)NNELL 




• Machine-language sort 

• Forward and backward linking of records 

• Machine-language spooler that uses the 
upper 32K of 64K systems (lets you continue 
working with the computer while printing) 

• Flexible report and label formats that can 
be saved for future use 

• Can send report output to ASCII files (can 
interface with spreadsheets and word proces- 
sors that use ASCII files) or devices such as 
cassette, screen, or printer 

• Can suppress printing of fields and print 
fields in a predetermined sequence 



• Can display and report records in physical 
or index sequence 

• Can index as many as 700 records 

• Can define as many as 30 fields per record 

• Can automatically back up database files 
to disk 

• Can kill all files associated with a particu- 
lar database 

• Can automatically create a database from 
disk directories and a file-allocation table 

• Retains current database name in mem- 
ory for each function 

• Help screens for each function. 



Table 1 . Some of the Many Features Offered by the New Version of Database Manager 



phens mean any character.) Be careful that 
you don't have another file that meets these 
criteria on your disk. You can check this first 
with the files (F) option on the main menu. 
The files option displays all files having the 
above extensions on the disk. 

The search menu (S) is a display of fields 
that asks you to enter the number of the field 
on which you want to search. When you type 
in the field number, the program will search 
the records until it finds a matching string in 
the corresponding field. If you press the enter 
key in response to the prompt, Database 
Manager will look for any occurrence of the 
search string in the system. If you press enter 
to both prompts on the search menu, deleted 
records are found. 

The index option (I) looks similar to the 
search option. To use it, choose a field and 
enter the length you want to index. You'll use 
memory more efficiently if you choose a 
length that is shorter than a field. Choosing 
a longer length indexes the file by the first 
field and as many contiguous fields as the 
selected length covers. Pressing the enter 



— displays the previous record in index se- 
quence. If the file has not been indexed, it 
returns to the main menu. 

# prompts for a record number to display. 

U updates a specified field. Dots appear at 
the bottom of the screen to show the field 
length. 

R replaces the current record. Pressing the 
enter key retains the value of the correspond- 
ing field. Typing over the dots replaces the 
field. 

A selects the add mode. 

D deletes the current record by setting it to 
equal CHR$(0). Deleted records can be found 
by searching for a null string. 

P prints the current record. The first record 
printed will have a heading like the standard 
report. Subsequent records are printed in 
columns one below another. With the spooler 
in operation, you can use the arrow keys to 
move through the database and dump rec- 
ords to the printer without any delay in the 
program. 

N displays the next physical record in the 
database. 

L displays the previous physical record in 
the database. 

S selects the search mode. 
? selects the help screen. 

— displays the next indexed record. If it is 
not indexed, the command will return you to 
the main menu. 

Table 2. Definitions of the Keystroke Com- 
mands Available in the Display Mode 
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key causes the length to default to the length 
of the current field. 

When using the index option, you see the 
file being read, sorted, and rewritten. Some- 
times this process seems to be interrupted; 
this is because of string-oriented garbage col- 
lection in the background. The sort is done 
in memory and is limited to the dimension of 
IX$(700). The length times the number of 
records must fit into the 10,000 bytes of 
cleared string space. If you don't intend to 
index your file, you don't need to leave space 
in the record for pointers, and you can put as 
many records into the database as the disk 
can store. 

The report (R) option has been improved 
from that of the previous version of the pro- 
gram. Figure 4 shows that a report can be in 
physical or index sequence. Fields can be se- 



lected for printing in the standard report. 
The standard-report mode automatically 
wraps whenever the length of the selected 
fields exceeds the value of QW, which is set 
to 80 characters in line 20 of Listing 1 . (If you 
set up the program for your 132-column 
printer in line 40, the value for QW in line 20 
should equal 132.) If multiple lines are 

printed, a delimiter of is printed 

after the record to make the report more 
readable. After the fields have been selected, 
this report format can be saved in a file for 
use at a later time. 

Database Manager also lets you create la- 
bels with the report option. Standard labels 
have six lines. For an example of label crea- 
tion, see Fig. 5. In addition, the label-format 
mode can be used to create custom reports. 
By defining a one-line label, you can specify 



FILE IS INDEXED. DO YOU WANT REPORT IN FILE OR INDEX SEQUENCE 

(FA) 
? I 

LABEL FORMAT (Y/N) 
? N 

ENTER FILE extension CONTAINING REPORT SPECS, or HIT enter? 
PRINT LAST NAME (Y/N) 
? Y 

PRINT FIRST NAME (Y/N) 
? Y 

PRINT ADDRESS (Y/N) 
? Y 

PRINT CITY (Y/N) 
? Y 

PRINT STATE (Y/N) 
? Y 

PRINT ZIP (Y/N) 
? Y 

PRINT POINTERS (Y/N) 
? N 

ENTER FILE extension TO STORE REPORT SPECS. (IE RP1-9) 
or HIT enter? RP1 

ENTER A DEVICE# FOR OUTPUT - 2 PRINTER, - 1 CASSETTE.O SCREEN OR > 1 
FOR DISK 
? -2 

report of file TEST /DEF page 1 



rec. LAST NAME 

CITY STATE 



FIRST NAME ADDRESS 



ZIP 



1 BONNELL 
ROCHESTER 

3 CUOMO 
ALBANY 

4 DOE 
AVERAGE 

2 REAGAN 
WASHINGTON 



NY 



NY 



CA 



DC 



14626 



99999 



99999 



9999? 



WILLIAM S. 

MARIO CAPITOL BUILDING 

JOHN 123 MAIN STREET 

RONALD PENNSYLVANIA AVE. 



Fig. 4. An Example of the Standard Report 



a sequence of particular fields, whether field 
names will be printed, and whether fields 
will be aligned on columns or separated by a 
space. Double spacing is accomplished by 
defining a two-line label and specifying fields 
for the first line only. The same field can be 
printed more than once on a given line or on 
more than one line. 

Output from reports and labels can go to 
any device supported by the Color Com- 



FILE IS INDEXED. DO YOU WANT RE- 
PORT IN FILE OR INDEX SEQUENCE 

(F/I) 
? I 

LABEL FORMAT (Y/N) 
? Y 

ENTER FILE extension CONTAINING 
REPORT SPECS, or HIT enter? DO YOU 
WANT titles TO PRINT 
(Y/N)? 
? N 

HOW MANY lines IN LABEL < 1 1? 6 DO 
YOU WANT 1 SPACE BETWEEN LABEL 
FIELDS (Y/N)?? Y 

FOR line 1 TYPE field# FOLLOWED BY 
return FOR EACH FIELD YOU WANT TO 
PRINT- A null return TO END THIS LINE 
SPECIFICATION. 
? 1 ? 2 ? 

FOR line 2 TYPE field# FOLLOWED BY 
return FOR EACH FIELD YOU WANT TO 
PRINT- A null return TO END THIS LINE 
SPECIFICATION. 

? 3 ? 

FOR line 3 TYPE field# FOLLOWED BY 
return FOR EACH FIELD YOU WANT TO 
PRINT- A null return TO END THIS LINE 
SPECIFICATION. 
? 4 ? 5 ? 6 ? 
ENTER FILE extension TO STORE RE- 
PORT SPECS. (IE LB 1-9) or HIT enter? 
LB1 ENTER A DEVICE# FOR OUTPUT 
-2 PRINTER, -1 CASSETTE.O 
SCREEN OR > 1 FOR DISK 
? -2 

CUOMO MARIO 
CAPITOL BUILDING 
ALBANY NY????? 

DOE JOHN 

123 MAIN STREET 

AVERAGE CA????? 

REAGAN RONALD 
PENNSYLVANIA AVE. 
WASHINGTON DC ????? 

Fig. 5. Label Creation and Custom Reports 
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puter. For example, use - 2 to send output 
to the printer. Specify - 1 to send it to cas- 
sette. Using 0 will send output to the key- 
board, and selecting any specification from 2 
through 15 sends it to the disk. Device num- 
ber 1 should not be used in this option be- 
cause it is already opened to the database. 

The make-database-from-directory (M) op- 
tion is new. It requires that a file definition be 
set up previously in a format such as the one 
displayed in Fig. 6. The option reads the di- 
rectory tracks and file-allocation table and 
then creates a direct-access database that 
you can sort and add comments to. If you 

file DIRECTORY/DEF record definition 



fleld# 


name 


length 


1 


NAME 


8 


2 


EXT 


3 


3 


TYPE 


1 


4 


ASCII FLAG 


1 


5 


HEX 1ST GR. 


2 


6 


LAST BYTES 


4 


7 


DISK CODE 


2 


8 


GRANS 


30 


9 


< --> 


6 


57 




Fig. 6. A File Definition for Reading a Disk 
Direction with the M Option 



first index record = 6 
last index record =10 
indexed by field: NAME 

last rec = 16 
record#? 1 



record# 1 

1 NAME:FSDIR 

2 EXTtBAS 

3 TYPE:0 

4 ASCII FLAG:0 

5 HEX 1ST GR. :20 

6 LAST BYTES:00DB 

7 DISKCODE:01 

8 GRANS:/21/22 

9 <-->: 7 8 

enter < - Q#URADPNLS? - >? 

Fig. 7. A Display of a Directory Record 

file HELP /DEF record definition 
field# name length 



1 



32 



32 



Fig. 8. A File Definition with One Field 



wish to make comments, be sure to create a 
comment field in the definition. Refer to the 
TRS-80 Color Computer Disk System guide for 
an explanation of fields. The granule alloca- 
tions are expressed in hexadecimal. The pro- 
gram prompts you to insert disks and type a 
two-character identifier that is put into each 
record in field 7. The system pauses occa- 
sionally during this option to perform the 
garbage collection associated with string op- 
erations. Figure 7 shows the view (V) option 
after the resulting database has been sorted 
by name with a length of 1 1 . 

Some Applications 
And Further Notes 

Have you ever thought of a database man- 
ager as a direct-access file editor? The help 
routines in lines 120- 180 of Listing 1 depend 
on a file called HELP/DAT, which you create 
by using the database in this manner. Until 
you have made the file, replace line 120 with 
120 RETURN. To create HELP/DAT, go to the 
define option on the main menu and make a 
file definition with one field (see Fig. 8). Press 
enter for the field name and use a length of 
32 characters. Press the shift-clear key com- 
bination for the next line. Then go to the add 
option and type the database found in Listing 
3. (Don't type the record numbers, just the 
32 columns of text.) Line 30 defines the start 
and end record for each help screen. The 1 1 
pairs of numbers form 1 1 help screens. Note 
number 65; this record displays "No Help 
Available." 

You can also use Database Manager to help 
organize your thoughts before writing. De- 
fine something like the following file. 

Field Name Length 



Outline Category 

Subject 

Textl 

Text2 

Text3 

Text4 

Pointers 



7 

10 
58 
58 
58 
58 
6 



Sum 



255 



Then gather and input all your thoughts. 
Even if you have a long string of ideas, Da- 
tabase Manager can sort them out for you. 
Index by subject and assign an outline cate- 
gory. Then index by outline category with a 
length of 15. Everything is now ready for a 
first draft. Run a one-line label report to an 
ASCII file and read it into your word proces- 
sor. Now you have a head start on your 
task.B 

Address correspondence to William S. Bon- 
nell 239 Mason Ave., Rochester, NY 14626. In- 
clude a self-addressed, stamped envelope if 
you would like a response. 



color com puter. 
64K 



NEW 



Information 
Ianacement 
System 



INTEGRATED HOME DATA MANAGER mth NINDOWS, 

ON SCREEN CALCULATOR , and CALENDAR. 

HOME CHECKBOOK maintains aultipla account* 

for quick and »a»y analymi». 

HOME ADDRESSBOOK up to 20O r»cordm of 

mailing data with March and labml option* 

HOME INVENTORY provide* valuable property 

information recall and analysis. 

AVAILABLE ON DISK ONLY... *24 93 
CHECK/MONEY ORDER * «2.00 SHIPPING. 
NEW YORK RESIDENTS ADD SALES TAX. 
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If you've even 
THOUGHT 
about buying 
a laptop com- 
puter, check out PICO— The~ 
Briefcase Computer Report, 
Wayne Green's 
newest publication: 
P/CO.WGE Center/ 
72 Rte.202N, Peter- 
borough, NH 03458. 

World's smallest reply coupon— neatness counts 
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Program Listing 1. The Improved Database 
Manager 

10 GOTO 3110 

20 DIMF$(30) ,L(30) ,S(30) ,P(30) ,1 
X$(700) ,TB(30) , HP (11,1) :DV=-2:QW 
= 80 

30 FOR 1=1 TO lltFOR J=0 TO 1 : RE 
AD HP(I,J) :NEXTJ,I:DATA1,28,29,4 
5,46,59,60,64,66,84,85,104,105,1 
44,145,151,152,17 4,175,178,65,65 
40 REM SET UP OKI PRINTER OFR 96 
00 BAUD: PRINT"TURN ON PRINTER": 
POKE150, 1 :PRINT#DV,CHR$ ( 24) ; 
50 IF PEEK {& HI DC) O190THENGOSUB2 
990 

60 GOTO100 

70 CLS: INPUT"specify a file name 
(8 OR LESS CHARACTERS" ;A$ : IFA$ 
=" "THENRETURN ELSEF0$=A$ : Fl$=LEF 
T$(F0$+" ",8) : RETURN 

80 A$=INKEY$ 

90 A$=INKEY$:IF A$= " "THEN90ELSEI 
FA$="?"GOSUB120:RETURN ELSE RETU 
RN 

100 CLS:A$=INKEY$:CLOSE:O=0:GOTO 
410 

110 CLOSE: CLS: END :GOTO100 

120 CLS:IFO>0 AND 0<12 THEN140 

130 PRINT n CHOOSE A MENU OPTION A 

ND TYPE ?" :GOTO 180 

140 J=0:OPEN"D", 2, "HELP/DAT", 32: 

FIELD #2,32 AS A$ 

150 FOR I=HP(O,0) TO HP(0,1):GET 
#2,I:PRINTA$; : J=J + 1 : IFJ=15THEN P 



RINT"hit enter for more" ; : EXEC44 
539:CLS: J=0 
160 NEXT 

170 PRINT : PRINT " hit enter t 

o continue"; 

180 EXEC 44539:0=-l:RETURN 
190 K=0 

200 CLS: INPUT"INSERT DISK, ? ENT 
ER A TWO CHARACTER CODE FOR 

THIS DISK";K1$:DSKI$0,17,2,A$,B 
$:FA$=LEFT$(A$,68) :FORI=3T011 
210 DSKI$0,17,I,A$,B$ 
220 FORJ=0TO3 

230 C$=MID$(A$,J*32+1,32) :D$=MID 
$(B$,J*32+1,32) 

240 IFLEFT$(C$,1)=CHR$(255)THENJ 
=3:I=ll:GOTO 320 

250 IFLEFT$(C$,1)=CHR$(0)THEN280 
ELSEPG=ASC(MID$( C$,14,1) ) :GR$="" 
:GOSUB390 

260 C$=LEFT$(C$,11)+RIGHT$(STR$( 
ASC(MID$ (C$,12,1) ) ) ,1)+RIGHT$(ST 
R$(ASC(MID$( C$,1 3,1) ) ) ,1)+RIGHT$ 
("0"+HEX$(ASC(MID$( C$,14,1) ) ) ,2) 
+RIGHT$ ( "0" +HEX$ ( ASC ( MID$ (C$,15, 
1) ) ) ,2)+RIGHT$( "0"+HEX$(ASC(MID$ 
(C$,16,1) )) ,2)+RIGHT$( " "+K1$,2) 
270 IX$(K)=C$+GR$:K=K+1 
280 IFLEFT$(D$,1)=CHR$(255)THENJ 
=3:I=ll:GOTO 320 

290 IFLEFT$(D$,1)=CHR$(0)THEN320 
ELSEPG=ASC(MID$(D$,14,1) ) :GR$="" 
:GOSUB390 

300 D$=LEFT$(D$,11)+RIGHT$(STR$( 
ASC (MID$(D$, 12,1) ) ) ,1)+RIGHT$(ST 



R$ ( ASC (MID$(D$, 13,1) ) ) ,1)+RIGHT$ 
( "0 " +HEX$ ( ASC (MID$(D$, 14,1) ) ) ,2) 
+RIGHT$( "0"+HEX$ ( ASC(MID$ (D$,15, 
1) ) ) ,2)+RIGHT$("0"+HEX$(ASC(MID$ 
(D$,16, 1) ) ) ,2)+RIGHT$(" "+Kl$,2) 
310 IX$(K)=D$+GR$:K=K+1 
320 NEXT J 
330 NEXT I 

340 POKE&HFF40,0:PRINT"MORE DIRE 

CTORIES(Y/N) " ; :GOSUB 80 

350 IF A$="Y" THEN 200 

360 PRINT: INPUT"INSERT DATABASE 

DISK, HIT ENTER" ;A$ 

370 GOSUB870:GOSUB880:FR=0:LA=0: 

F = 0 

380 FOR I=LO TO LO+K-l:LSET S$=I 
X$(I-LO) :PRINTLEFT$(S$,30) : PUT # 
1,I+1:NEXT:GOTO860 

390 NG=ASC(MID$(FA$,PG+1,1) ) :IFN 

G>191THENNG=0: RETURN 

400 GR$=GR$+"/"+HEX$(NG) :PG=NG:G 

OTO390 

410 PRINT" /* * *DATA BASE MANAG 
ER***\ <**★* COPYRIGHT 04/8 

5 ****> \*** W .S. BONNELL 

* * */ " 

420 TL$=STRING$(28,128) :MID$(TL$ 
, 1 5 , LEN ( F0$ ) +5 ) = " f i le " +CHR$ ( 1 28 ) 
+F0$:IF PEEK(&H10D)*256+PEEK(&H1 
0E)=&H7F88 THEN MID$ ( TL$ , 3 , 8 ) = " S 
pool "+CHR$( 128 )+"on" 
430 PRINT" menu "TL$ ; : PRINT" d->DEF 
INE RECORD FIELDS" : PRINT"a->ADD 
RECORDS" :PRINT"V->VIEW, MODIFY R 
ECORDS" :PRINT"k->KILL A DATABASE 
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n :PRINT"S->SEARCH FOR FIELD" :PRI 
NT" C->CREATE AN INDEX" : PRINT" r-> 
REPORTS/LABELS/ASCII OUTPUT" :PRI 
NT"b->BACKUP" 

440 PR I NT "m-> MAKE DATABASE FROM 
DIRECTORY" : PRINT" f->FILES : LIST 
OF DAT ,DEF,RP,LB" :PRINT"q->QUIT 
?->help" :PRINT"enter TO CHANGE 
FILES" ; 

450 GOSUB80:O=INSTR(CHR$(13)+"DA 

VKSCRBMFQ? " , A$ ) -1 : IFO<0THEN450 

460 IFO>0ANDO<11THENCLS:PRINT"TY 

PE ? FOR HELP OR HIT ENTER" :GOSU 

B80:IFA$="?" THEN100 

470 IFO=8THENGOTO2900 

480 IF 0—1 THEN 100 

490 IFO=0GOSUB70:GOTO100 

500 IF F0$="" AND O<10 THEN GOSU 

B70:IF F0$="" THEN 100 

510 ONO+1GOTO100, 530, 900,1170,14 

40,1480,1680,1730,2900,190,26 50, 

110 

520 GOTO100 

530 CLS:F$=Fl$+"/DEF" :K=0:SW=0:I 

=0:CLS:GOTO600 

540 IFI-K=>15THENCLS:K=I-1 

550 PRINT@0,"field(\ to quit)"TA 

B(18) "length" 

560 PRINT@32*(I-K) ,1; : LINEINPUTF 
$(I) 

570 IFF$(I)="\"THENN=I-1:RETURN 
580 PRINTS 3 2* (I-K) +16,""; :INPUTL 
(I) :IFL(I)=0THEN560 
590 SW=1: RETURN 

600 PRINT"rEVIEW OR CREATE" :GOSU 



B80 

610 IFA$ = "R"THEN630ELSEIFA$O"C" 
THEN 100 

620 I=I+1:GOSUB540:IFF$(I)="\"TH 

EN750ELSE620 

630 GOSUB870:GOTO 750 

640 CLS 

650 RL=0 

660 K=0:PRINT@0, "f ile "F$;" fiel 

d review 

670 F0RI=1T0N 

680 IFI-K=14THENPRINT"-M0RE-" ; :G 
OSUB80:K=I :CLS 
690 P(I)=RL+1 

700 PRINT@32*(I-K) ,USING"## "; I ; 
:PRINTF$(I) ;TAB(16)L(I) 
710 RL=RL+L ( I ) 
720 NEXT 

730 PRlNT"record length="TAB ( 16 ) 
RL 

740 K=0: RETURN 

750 GOSUB640:PRINT"CORRECTION "; 
:INPUT"field # OR <ENTER> " ; A$ 
760 I=VAL(A$) :IFA$=""THEN810 
770 IFI=0THEN750 
780 CLS:K=I:GOSUB560 
790 IFI>N THEN N=I 
800 CLS:GOTO750 

810 PRINT" HARD COPY ( Y/N ) " : G0SUB8 

0: IFA$O"Y"THEN840 

820 PRINT#DV, "file "F$" record d 

efinition" : PRINTfDV, "field#" ;TAB 

(10) ;"name" ;TAB(30) ;" length" : PRI 

NT#DV,STRING$(40,"=") 

8 30 FORI =1 TON : PRINT#DV , I ; TAB ( 10 ) 



;F$(I) ; TAB (30) ;L(I) : NEXT : PRINT#D 
V,STRING$(40, "=" ) :PRINT#DV,TAB(3 
0) ; RL 

840 IFSWO1THEN100 
850 F=0:FR=0:LA=0 

860 CL0SE#1:0PEN"0",#1,F$:WRITE# 

1,FR,LA,N,F:F0RI=1T0N:WRITE#1,F$ 

(I),L(I),P(I): NEXT : GOTO100 

870 CLS:E=0:L=0:F$=Fl$+"/DEF" :PR 

INT@0,"file name " ; F$ : OPEN" I " , #1 

,F$:INPUT#1,FR,LA,N,F:L=0:FORI=1 

TON : S ( I ) =0 : NEXT : F0RI=1T0N : INPUT# 

1,F$(I) ,L(I) ,P(I) :L=L+L(I) :S(I)= 

E+l : E=S ( I ) +L ( I ) -1 : NEXT : CLOSE# 1 : R 

ETURN 

880 OPEN"D",#l,Fl$+"/DAT",L 

890 FIELDl , L AS S$ : LSETS$=" " : L0= 

LOF(l) : RETURN 

900 GOSUB870:GOSUB880 

910 J=LO 

920 IF J>1THENGET# 1 , J 
930 J=J+1 
940 GOSUB1060 

950 IFV$="QUIT"THENJ=J-1:L0=J:T$ 
="" :GOTO1230 
960 GOTO930 
970 GOSUB1400 

980 INPUT"enter field! to update 
" ;UD$ 

990 I=VAL(UD$) : 
1000 IFI=0THEN1230 
1010 IFI>N THEN980 

1020 PRINTSTRING$ (L( I ),".") :TT$= 
S$ : LINEINPUTV$ : ZZ=L ( I ) -LEN ( V$ ) 
1030 IFZZ>0THENV$=V$+STRING$(ZZ, 

Listing continued 



BASIC COMPILER 



WASATCHWARE believes that users of the Color Computer deserve th 
right to use all 64k of RAM that Is available in the computer, and ha 
fast machine language programs that use the full potential ~« 
microprocessor. That is why the BASIC compiler 
developed. Here are some of the reasom 
the best bargains in this magazine: 



the 6809 
called HLBASIC was 
that make this compiler one of 



- Programs can use all 64k of RAM for either program storage 
or for large numbers of variables and arrays like A(20O00) 

- Full Floating Point arithmetic expressions with functions 

- SUBROUTINE and CALL commands allows for structured 
programming and more independant program development 

- Full sequential and direct access disk files allowed 

- BASIC source and M.L. outpu-t I/O to disk, tape or aemory 

- Many new commands that expand your programming capability 

Commands Supported 



1 . 


I/O -Commands 












CLOSE CLOADM 


CSAVEM 


DIR 


DRIVE 


DSKI$ 




DSKO$ FIELD 


FILES 


GET 


INPUT 


KILL 




LSET OPEN 


PRINT 


PUT 


RSET 




2. 


Program Control Commands 






NEXT 




CALL END 


EXEC 


FOR 


STEP 




GOSUB GOTO 


IF 


THEN 


ELSE 


ERROR 




ON.. GO RETURN 


STOP 


SUBROUTINE 




3. 


Math Functions 












ABS ASC 


ATN 


COS 


CVN 


EOF 




EXP FIX 


INSTR 


INT 


LEN 


LOG 




LOC LOF 


PEEK 


POINT 


PPOINT 


RND 




SGN SIN 


SQR 


TAN 


TIMER 


VAL 


4. 


String Functions 












CHR$ INKEYJ 


LEFT$ 


MID$ 


MKN$ 


RIGHTS 




STR$ STRINGS 










5. 


Graphic/Sound Commands 






PAINT 




COLOR CLS 


CIRCLE 


DRAW 


LINE 




PCLEAR PCLS 


PLAY 


PMODE 


PRESET 


PSET 




RESET SCREEN 


SET 


SOUND 






6. 


Other/Special Commands 










DATA DIM 


LLIST 


MOTOR 


POKE 


READ 




REM RESTORE 


RUN 


TAB 


VERIFY 


DLD 




DST IBSHFT 


LR EG 


PCOPY 


PMODD 


PTV 




REAL SREG 


SWP 


VECTD 


VECTI 






DON'T HESITATE. . .BUY 


MLBASIC 


TODAY 





eiL^uired Wasatch Ware ^ IT^ 1 :^ 

Call (801) 943-6263 84121 
Disk - $69.95 include $4.00 Shipping and Handling 
Tape - $69.95 Utah residents add 5.75 % tax 
Both - $74.95 Check or Money Orders Only (No C.O.D.) 




SGS 



SEMIGRAPHICS SYSTEM FOR 
EXTENDED COLOR BASIC USERS 



Powerful, yet easy to use utility to perform graphic 
functions in those semigraphic modes which are not 
supported by Extended Color Basic. Use eight colors on 
black background, up to a maximum resolution of 64 x 192 
points. Combine text and graphics. 



GRAPHICS UTILITY FUNCTIONS 
* Set/Test Point *Draw Lines * Draw/Fill Rectangles 
Draw Circle/Ellipses * Paint Areas 'Transform Images 
Pages Allocated in RAM *Move Images Around * Select 
SGS Modes/Colors * Scroll/Shift Images Save/Load 
Images on Cassette or Diskette *And Much More. . . 

PLUS: User-created sounds, diagnostics, semi-Graphic 
screen printing (GEMINI or EPSON printers), 
Comprehensive Users Manual and Demo Programs. 
SGS is a high-speed Machine Language system which 
adds 22 new graphic commands to your EXTENDED 
COLOR BASIC, 

EXTEND your CoCo graphics/animation projects 
with SGS by mailing your Check or Money Order TODAY! 

CASSETTE. . . .$14.95 DISKETTE. . . .$17.95 

MICRO COMPUTER SYSTEMS 
^ 1404 Sunset Drive ^ 

Friendswood, TX 77546 



Tell them "I saw it in HOT CoCo.' 
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THE MAGAZINE FOR TRS-80 COLOR COMPUTER* USERS. 



Your CoCo Talks, But 
The Voice Is Yours 



Create Custom 

Soundtracks 

For AM Your Programs 



Tune In to The Source ' 



Contest! 

Solve the Puzzle, 
Win a Prize 



\ 



■I « 





\Q' Is there a 

quality software 
package that 

promises to give 
me a wide variety 
of easy-to-use 
| Color Computer 
I programs? And 
at a low price? 



fAl Yes. instant CoCo 



Ready-to-run HOT CoCo 
programs on cassette! 

There's just no question, instant CoCo is a 
terrific way to build your Color Computer 
software library. Each month, instant CoCo 
brings you 8-12 top-notch, original programs 
from the latest issue of HOT CoCo 
magazine— all on one high-quality cassette. 
Everything from action-packed games to 
helpful utilities. And the cost? As little as $8.33 
a month when you buy a one year 
subscription! 

instant CoCo is the ideal companion to 
HOT CoCo magazine, because ready-to-run 
instant CoCo relieves you of the frustrating, 
time-consuming keyboarding and debugging 
of the published programs. Our technical 
editors have done it all for you. You'll save 
hours of time and considerable aggravation! 
Just drop the tape into your cassette player, 
and get set to enjoy some great software! 



A free bonus program 
in every issue! 

But wait, there's more! On every monthly 
instant CoCo cassette, you'll get one or more 
previously unpublished bonus programs 
absolutely FREE. These bonus programs 
have never appeared in HOT CoCo. 
Complete instructions for the bonus programs 
are included. 

Bonus programs— one more reason why 
you should be getting instant CoCo each and 
every month!- m 



i 



Supplement your library 
with "The Best of '84"! 

Complete with dxumentation 
There's even a special collector's item 
edition of instant CoCo. "The Best of '84"— 
29 first-class HOT CoCo programs that come 
through 1984 with flying colors! 

Graphics. Utilities. Games. Plus, 
applications for business, home, and school. 
"The Best of 84" is the perfect complement 
to your instant CoCo library, and comes 
complete with an easy-to-use documentation 
booklet. 

Programs of outstanding variety and top 
quality. The best programs from an entire 
year of HOT CoCo, including: 

• "Stock Transactions Tracker" 

• "Graphics Builder" 

• "Personal Money Manager" 
Don't miss this one. Order your "Best of 

'84" today. 
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OK! Send me instant CoCo! 



To order instant CoCo and "The Best of '84", just complete the information 
on the coupon or attached order card and drop it in the mail. For faster 
service, call TOLL FREE 1-800-258-5473. In NH, dial 1-924-9471. VISA, 
Mastercard, and American Express welcome. 



1-86 



Yes! 



I want instant CoCo to meet my 
programming needs! 



□ Please send me the . 



.issue for $11.47. 



□ Please send me "The Best of 84" for $16.47. 

□ Payment enclosed □ MC □ VISA □ AE 



Card # 



Exp. Date 



Signature 



Name 



Address 



City 



State 



Please allow 4-6 weeks for delivery. 
Price includes postage and handling. 

Foreign Air Mail please add an additional $.50 per cassette, or $10 per subscription. 
US funds drawn on US banks ONLY. 



instant CoCo 
80 Pine Street 



Peterborough, NH • 03458 
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n n ^ 

1040 MID$(TT$,S(I) ,L(I) )=V$:T$=T 

T$:GOSUB1160 

1050 GOTO1230 

1060 CLS:PRINT"record"J:K=0:FORI 
= 1T0N 

1070 PS=32*(I+K) :ES=32*(I+K)+LEN 
(F$(I) )+l+L(I) :SS=ES-L(I)+3:K=K+ 
INT( (ES-PS)/32) :IFES>448THENCLS: 
K=-I:GOTO1070 

1080 PRINT@PS,USING"## ";I;:PRIN 
TP$(I) ;STRING$(L(I) , " . " ) :PRI 
NT@SS, " " ; :LINEINPUTV$ : IFV$=" "THE 
NV$=MID$(S$,S(I) ,L(I) ) :PRINT@SS, 
V$:GOTO1150 

1090 IFV$="QUIT"THENRETURN 

1100 ZZ=L(I)-LEN(V$) 

1110 IFZZ<0THEN1140 

1120 IFZZ=0THEN1150 

1130 V$=V$+STRING$(ZZ,32) 

1140 V$=LEFT$(V$,L(I) ) 

1150 T$=T$+V$ : NEXT 

1160 LSETS$=T$ : PUT# 1 , J : T$= " " : RET 
URN 

1170 CLS:IFIX=0THENGOSUB870 

1180 GOSUB880 

1190 IFFR=0THEN1210 

1200 PRINT"first index record="F 

R:PRINT"last index record="LA:PR 

INT"indexed by field: "F$(F) 

1210 PRINT:PRINT"last rec="LO:IN 

PUT" record# " ; J 

1220 IFJ>LO THEN1210ELSEIFJ<=0TH 



EN100 

1230 GOSUB1400 

1240 PRINT"enter <-Q#URADPNLS?-> 
■ • 

1250 GOSUB80 

1260 IFA$="?"THEN1230ELSEIFA$="S 
"THENGOSUB6 40:GOTO1490ELSEIFA$=C 
HR$(8)THENJ=VAL(MID$(S$,LEN(S$)- 
5,3) ) :GOTO1220ELSEIFA$O"P"THEN1 
350ELSEIF S9 THEN1320 
1270 TB(0)=0:FORI=1TON:IFLEN(F$( 
I) )>L(I)THENTB(I)=LEN(F$(I) ) ELSE 
TB(I)=L(I) 

1280 TB(0)=TB(0)+TB(I) :NEXTI 

1290 TB(0)=TB(0)+(N-1)*2+4:IFTB( 

0 ) >QW-1THENLL=QW-1ELSELL=TB ( 0 ) 

1300 PRINT#DV, "REC "; 

1310 FOR II=1T0 N:PRINT#DV, USING 

"%"+STRING$(TB(II) ,32)+"%" ;F$(II 

) ; :NEXTII : PRINT#DV: PRINT#DV, STRI 

NG$(LL, "=") :S9=1 

1320 PRINT#DV,USING"### ";J; 

1330 FORI=lTON : PRINT#DV, USING" % " 

+STRING$(TB(I) ,32)+"%" ;MID$(S$,S 

(I) ,L(I) ) ; :NEXTI :PRINT#DV 

1340 IFTB(0)>QW-1THENPRINT#DV,ST 

RING$(10 f ".") 

1350 IFA$=CHR$(9) THEN J=VAL ( RIGHT 
$(S$ f 3) ) :GOTO1220 

1360 IFA$="L"THENJ=J-1:GOTO1220E 
LSEIFA$="N"THENJ=J+1 :GOTO1220ELS 
EIFA$="#"THEN1210ELSEIFA$="U"THE 
N970ELSEIFA$="R"THEN1370ELSEIFA$ 



="A"THEN910ELSEIFA$="Q"THEN100EL 
SEIFA$="D"THEN1390ELSE1250 
1370 GOSUB1060 
1380 GOTO1230 

1390 T$=CHR$(0) :GOSUB1160:GOTO12 
30 

1400 GET#1, J :CLS: PRINT" record* " ; 
J:K=0:FORI=1TON 

1410 PS=32*(I+K) :ES=32*(I+K)+LEN 
(F$(I) )+l+L(I) :SS=ES-L(I)+3:K=K+ 
INT( (ES-PS)/32) :.IFES>448THENPRIN 
T"-MORE-" ; : GOSUB80 : CLS : K=-I : GOTO 
1410 

1420 PRINT@PS,USING"## ";I;:PRIN 
TF$(I ) " : " ;MID$ (S$,S( I ) ,L( I) ) :NEX 
T : A$=INKEY$ : RETURN 
1430 CLOSE#l 

1440 PRINT"KILL FOR SURE(Y/N)":G 
OSUB80 

1450 IFA$O"Y"THEN100 
1460 CLS:KF=1 
1470 GOTO2670 

1480 GOSUB870:GOSUB880:GOSUB640 
1490 PRINT"SEARCH ";: INPUT" FI ELD 

# OR <ENTER> " ; A$ 
1500 F=VAL(A$) 

1510 INPUT " ENTER search string"; 
SS$ 

1520 IFSS$=""THENSS$=CHR$(0) 
1530 LO=LOF(l) :CLS 

1540 PRINT " CURRENT OR fIRST RECO 
RD" :GOSUB80 

1550 IFA$="C"ANDJ>0THEN JJ=J ELS 



(s3-port) v.t. 1. To bear the weight of, especially from underneath; uphold in position; keep from failing, etc. 
2. To bear or sustain (weight; etc.) 3. To keep from failing; strengthen: PBJ, Inc. supports their product line with 
technical personnel that are always there to help you. 4. To serve, to uphold or corroborate (a statement, theory, 
etc.) substantiate; verify: PBJ, Inc. receives testimonials on a daily basis that support their product line. 5. To 
provide (a person, institution) with maintenance; provide for: PBJ, Inc. supports the CoCo user by consistently 
creating new advancements in their field. 

Synonym: PBJ, Inc. > * , •/,..-. 

A long description indeed, yet very applicable to the kind of service delivered by PBJ, Inc. When 
the serious CoCo user needs back-up support, technical information or assistance, PBJ, Inc. is 
there! From the products they manufacture through to the strategic solutions they offer, 
PBJ, Inc. has rightfully gained the reputation of "the company with the most support for the 
Color Computer." 

"Innovative Products for the CoCo User 9 3 



inc. 



Call for information on our Tandy 1000 products. . . . 
Call or write today for our FREE catalog. . . . 
5725 Kennedy Blvd. • North Bergen, N.J. 07047 • 201-861-0126 
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E JJ = 1 

1560 FOR II=JJ TO LO 

1570 GET#l,II:PRINT@0,"record"II 

i» n 

1580 IFF=0THEN1610 
1590 IFMID$(S$,S(F) ,LEN(SS$) )=SS 
$THENJ=II :GOSUB1400ELSE1650 
1600 GOTO1620 

1610 IFINSTR(S$,SS$)O0THENJ=II: 
GOSUB1400ELSE1650 

1620 PRINT"q TO END SEARCH ELSE 
ENTER" 

1630 GOSUB80 

1640 IFA$="Q"THENII=LO 

1650 NEXT 

1660 PRINT(§480 / "mENU/vIEW/sEARCH 

n 

1670 GOSUB80:CLS:O1=INSTR(1,"MVS 
■ ,A$) :ONOl+lGOTO16 60 f 100,1220, 14 
90 

1680 GOSUB870:GOSUB880:GOSUB640: 
PRINT" INDEX ";:INPUT" field #";F 
: INPUT " ENTER length FOR INDEX OR 

enter "; LI : I FLI=0THENLI=L ( F ) 
1690 IF F<=0 OR F>N THEN 100 
1700 PRINT" READING" : LO=LOF ( 1 ) : FO 
RI=1T0L0:GET#1,I:IX$(I-1)=MID$(S 
$,S(F) ,LI)+RIGHT$( " "+STR$(D 
,3) : NEXT :GOSUB2920 : PRINT "WRITING 
" :IX$(LO)=IX$(0) :FORI=lTOLO: J=VA 
L(RIGHT$(IX$(I-1) ,3) ) :GET#1, J:T$ 
=S$:MID$(T$,LEN(T$)-2,3)=RIGHT$( 
IX$(I) ,3) 



1710 IFI-2>=0THENMID$(T$,LEN(T$) 
-5,3)=RIGHT$(IX$(I-2) ,3)ELSEMID$ 
( T$ , LEN ( T$ ) -5 f 3 ) =RIGHT$ ( IX$ ( LO-1 
),3) 

17 20 LSETS$=T$:PUT#1, J:NEXT:CLOS 
E#l:LA=VAL(RIGHT$(IX$(LO-l) ,3) ) : 
FR=VAL(RIGHT$(IX$(0) ,3) ) :IX=l:GO 
TO860 

1730 GOSUB870:GOSUB880 
1740 IFFRO0THENCLS : PRINT" FILE I 
S INDEXED. DO YOU WANT REPORT 
IN FILE OR INDEX SEQUENCE (F/I) 
" :GOSUB80: I FA$ <> " I " THENFR=0 
1750 PRINT" LABEL FORMAT ( Y/N )": GO 
SUB80: IFA$="Y"THEN2140 
1760 INPUT" ENTER FILE extension 
CONTAINING REPORT SPECS, or HIT 
enter" ; A$ 

1770 IFA$=""THEN1810 

1780 OPEN"I",2,Fl$+"/"+A$:INPUT# 

2,TY$,NS$ 

1790 I FTY$<>" REPORT "THENCLOSE2 :G 
OTO1760 

1800 CLOSE#2:GOTO1840 

1810 NS$="NNNNNNNNNNNNNNNNNNNNNN 

NNNNNNNN" : FORI=lTON : PRINT "PRINT 

"F$ ( I ) " " ; : PRINT" (Y/N) " : GOSUB80 : 

MID$ (NS$ , I , 1 ) =A$ : NEXTI : INPUT" ENT 

ER FILE extension TO STORE REP 

ORT SPECS. (IE RP1-9) or 

HIT enter" ;A$ 

1820 IFA$=" "THEN1840 

1830 OPEN"0",2 / Fl$+"/"+A$:WRITE# 



2, "REPORT" ,NS$:CLOSE#2 
1840 GOSUB2410 

1850 GOSUB2050:PG=1:GOSUB1960:FO 
RJ=lTOLO 

1860 IFFR=0THENGR= J ELSEIF J=1TH 
ENGR=FR ELSEGR=VAL(RIGHT$(S$,3) ) 
1870 GET#1,GR: : PRINT#DV, USING" ## 
# " ; GR ; : FORI=lTON 

1880 IFMID$(NS$,I,1)="N"THEN1900 
1890 PRINT#DV,USING"%"+STRING$(T 
B(I) ,32)+"%";MID$(S$,S(I) ,L(I) ) ; 
1900 NEXTI 

1910 PRINT#DV:IFTB(0)>QW-1THENPR 
INT#DV,STRING$(10," . " ) :LI=LI+1 
1920 IFLI=LP THENGOSUB2040:LI=jl: 
PG=PG+1:GOSUB1960 
1930 NEXTJ 

1940 F0RJ=LI*(NL-(NL>1) )TOLP*(NL 
-(NL>1) ) : PRINT#DV:NEXT:PRINT#DV: 
PRINT#DV:GOTO100 
1950 GOTO100 

1960 PRINT#DV, "report of file "F 

$" page"PG:PRINT#DV:PRINT#DV,STR 

ING$(LL, "=") 

1970 PRINT#DV, "rec. " ; 

1980 F0RII=1T0N:IFMID$(NS$,II,1) 

="N"THEN2000 

1990 :PRINT#DV / USING"%"+STRING$( 
TB(II) ,32)+"%";F$(II) ; 
2000 NEXTII 
2010 PRINT#DV 

2020 PRINT#DV, STRING $(LL, "=" ) 
2030 RETURN Listing con*fHj»d 



□ □□□□ 

□ □□□□ 

□□□□□ rpi 
□□□□□ Lbl 

COLOR COMPUTERS 




CALL (517) 625-4161 
CALL TOLL FREE 1-800-248-3«3 



COMPUTERS 



COMPUTERS 



LIST OUR 

PRICE PRICE 

26-3136 16K Extended Color Computer 2 $ 119.95 $ 99.00 

26-3127 64K Extended Color Computer 2 219.95 Jjjj-Jg 

26-3129 Disk Drive 0 for Color Computer 349.95 290 .00 

26-3130 Disk Drive 1 for Drive 0 199.95 1 <£-00 

26-1276 DMP-105 80 cps Dot Matrix 199.95 1 °9AJ0 

Telewriter 64 Tape 49.95 42.00 

Telewriter 64 Disk 59.95 49.00 

VIP Writer 69.95 59.00 



26-1070 Model 4D Desktop 64K 

25-1000 Tandy 1000 1 Dr. 128K 

25- 3000 Tandy 1200 10 Meg H.D. 256K 

26- 5103 Tandy 2000 2 Dr. 256K 

26-5104 Tandy 2000 1 Dr. 10 Meg H.D. 256K. 

26-3860 Tandy Portable 200 24K 

26-1208 CCR 81 Tape Recorder 

25-1001 Tandy 1000 10 Meg. H.D. 256K 



LIST 


OUR 


PRICE 


PRICE 


$ 1199.00 


$ 895.00 


999.00 


705.00 


1999.00 


1525.00 


2499.00 


1225.00 


3950.00 


1885.00 


999.00 


725.00 


59.95 


50.00 


1999.00 


1495.00 



SOFTWARE 



PRINTERS 



LIST 
PRICE 

VIP Database $ 59.95 

VIP Terminal Disk 49.95 

VIP Integrated Library 149.95 

RADIO SHACK Software 

Tom Mix Software ~ 

Comrex SS/DD 10 Pack Disks 21.00 



OUR 
PRICE 

$ 49.00 
45.00 
139.00 
15% Off 
CALL 
14.00 



LIST 
PRICE 

Epson LX-80 Printer (Friction Feed) $ 299.00 

Epson LX-80 Tractor Feed 49.95 

OKIDATA 182 Printer 299.00 

STAR SG-10 Printer 299.00 

C.ITOH 7500 Prowriter Printer 289.00 

Botek Serial to Parallel Interface 69.00 



OUR 
PRICE 

$ 250.00 
40.00 
245.00 
250.00 
225.00 
59.00 



MONITORS 



ACCESSORIES 



LIST OUR 

PRICE PRICE 

Comrex 12" Green Monitor $ 119.00 $ 95.00 

Comrex 12" Amber Monitor 129.95 110.00 

Comrex 13" Color Monitor 329.95 285.00 

Amdex 300A Monitor 199.95 155.00 

Teknika RGB/Composite Color Monitor 399.00 295 ^ 

VIDEO Plus Monitor Adaptor — 32.00 



LIST 
PRICE 

26-3018 Extended Basic Kit $ 39.95 

26-3017 64K Memory Kit 59.95 

26-3008 Joysticks (PAIR) 19 95 

26-3012 Deluxe Joystick (EACH) 29.95 

26-1 1 78 DCM-3 Direct Connect Modem 59.95 

Anchor-Signalman Modem 300/1200 Baud 399.00 



OUR 
PRICE 

$ 37.00 
51.00 
16.95 
25.00 
50.00 
275.00 



:s and offers may be changed I 

will be subiect to 10% restocking fee Defective items requ 



h prices C O D accepted ($10 00 charge per carton on COD Call for further COD mformat.on ) M.C., Visa add 2%. AX add 3% All non-defective items 
ation Call for R M A Number before returning Delivery is subiect to product availability Mon . Wed. & Fit 9-9. TueS. & ThurS. 9-6. bat. y-J 
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COCO SOLVER with 
PROGRAM GENERATOR 

"An advanced programmable calculator." 
"Conjures the image of instant programming." 

-HOT CoCo Review, May 1985 
Generates program automatically from 
COCO SOLVER data files. 

v COCO BASE I: 

A relational database manager with pro- 
grammable language. Creates a database 
structure, inputs and edits records and gen- 
erates reports. 

All programs require 32K Extended BASIC. 

COCO SOLVER with 

PROGRAM GENERATOR- $49 95 

+ $2 S & H, Tape or Disk. 

COCO BASE I-$49.95 

+ $2 S & H, Disk only. 

Check or money order accepted. 

JTJ ENTERPRISES 

P.O. Box 110841, 
Nashville, TN 37211 
(615) 358-2635 or (615) 331-0364 




MODULAR 
I/O PORT KITS 



Parallel 8 bit input & output 
for your CoCo, and Models 1, III, 4. 

• MODULAR DESIGN FOR ADDITION 
OF MULTIPLE PORTS • LATCHED OUTPUT 

• STATUS MONITORED BY LEDS 

• SWITCH SELECTABLE I/O ADDRESS 

• SOFTWARE DIAGNOSTICS 

I/O PORT KIT INCLUDES. . . . 

4.5" x 6" Printed circuit board; All components; Cable 
(Plugs To CoCo Adapter) Diagnostic software listing (BASIC); 
and Manual. (Requires 5V 100 ma supply) 

Complete I/O port kit (J107K) $35 

A-D/D-A Interface (J202K) $35 

CoCo Adapter-required for CoCo (J 11 OK) $15 

Model 1,111,4 Adapter (J112K) $20 

5 Volt Power Supply (D100K) $25 

Complete Enclosure Kit (D100E) $30 

SOFTWARE (APPLICATIONS) 

DIGITAL AND MEMORY SCOPE-Converts 

the CoCo TV display into an oscilliscope 

screen. (S101M)— LISTING $5. 

DIGITAL RECORDER and DELAY-Record 

and play back audio signals up to ten seconds. 

(S102M)— LISTING $5. 

One FREE BUFFER BOARD with every four 
I/O PORT KITS ordered! 
30% ASSEMBLY CHARGE 

send check, money order or C.O.D. 

D & A Research 

400 Wilson Avenue 
Satellite Beach, FL 32937 
305/777-1728 



2040 FORI=lT03 : PRINT#DV : NEXT : RET 
URN 

2050 TB(0)=0:FP=0:FORI=1TON 
2060 IFMID$(NS$,I,1)="N"THEN2100 
2070 FP=FP+1 

2080 IFLEN(F$(I) ) >L( I ) THENTB ( I ) = 
LEN(F$(I) )ELSETB(I)=L(I) 
2090 TB(0)=TB(0)+TB(I) 
2100 NEXTI 

2110 TB(0)=TB(0)+4+(FP-l)*2:IFTB 
( 0 ) >QW-1THENLL=QW-1ELSELL=TB ( 0 ) 
2120 NL=INT(TB(0)/QW+.999) :LP=IN 
T(58/(NL-(NL>1) ) ) : NB=62-NL-LP* ( N 
L-(NL>1) ) :PRINTLP"lines/page ":P 
RINTNL " 1 ines in header and ":PRI 
NTNB" 1 ines in footer" 
2130 RETURN 

2140 INPUT" ENTER FILE extension 
CONTAINING REPORT SPECS, or HIT 
enter " ; A$ 

2150 IFA$=""THEN2230 
2160 OPEN"I" ,2,Fl$+"/"+A$ 
2170 INPUT#2,TY$ 

2180 IFTY$ <> "LABELS "THENPR INT" wr 
ong spec f ile" :CLOSE#2 :GOTO2140 
2190 INPUT#2,PT$,N6,RP$,SB$ 
2200 F0RI=1T0N6:INPUT#2,LI$(I) :N 
EXTI 

2210 CLOSE#2 
2220 GOTO2480 

2230 PRINT"DO YOU WANT titles TO 
PRINT (y/n) ?" :GOSUB80: PRINT 

:PT$=A$ : INPUT"HOW MANY lines IN 
LABEL<11" ;N6 

2240 PRINT"DO YOU WANT 1 SPACE B 
ETWEEN LABEL FI ELDS ( Y/N )?"; : 

GOSUB80 : PRINT : SB$=A$ 
2250 PRINT"DO YOU WANT rec.f TO 
PRINT ( y/ n ) " : GOSUB80 : PRINT : RP$=A$ 
2260 GOSUB640:PRINT"HIT KEY TO C 
ONTINUE" : GOSUB80 : FORK=lTON6 
2270 M=0:LI$(K)="" : CLS : PRINT " FOR 

line"K"TYPE field# FOLLOWED BY 
return FOR EACH FIELD YOU WAN 
T TO PRINT - A null return TO 
END THIS LINE SPECIFICATION." 
2280 M=M+1 : PRINTS 128+ (M-l) *5, "" ; 
: INPUTA 

2290 IFA=0THEN2330 

2300 IFA>N THENPRINT@128+(M-1)*5 

," INVALID " :M=M-1 :GOTO2280 

2310 IFM>N THEN2330 

2320 LI$(K)=LI$(K)+CHR$(A) :GOT02 

280 

2330 NEXTK 

2340 INPUT " ENTER FILE extension 

TO STORE REPORT SPECS. (IE LBl 

-9) or HIT enter";A$ 

2350 IFA$=""THEN2480 

2360 OPEN"0" ,2, Fl$+"/"+A$ 

2370 WRITE#2, "LABELS" 

2380 WRITE#2,PT$,N6,RP$,SB$ 

2390 F0RI=1T0N6:WRITE#2 / LI$(I) :N 

EXTI 

2400 CLOSE#2:GOTO 2480 

2410 PRINT " ENTER A DEVICE# FOR O 

UTPUT" 

2420 PRINT"-2 PRINTER, -1 CASSETT 
E,0 SCREEN OR >1 FOR DISK" 
2430 INPUTDVrIF DV=1 THEN PRINT" 
DEVICE 1 IN USE-REENTER" :GOT0243 
0 

2440 IF DV=-1 OR DV>1 THEN INPUT 
"ENTER A FILENAME TO SAVE ASCII 

DATA DUMP";BB$ 
2450 PRINT"HIT KEY WHEN DEVICE I 
S READY" :GOSUB80 



2460 IF DV=-1 OR DV>1 THEN OPEN" 
O" ,#DV,BB$ 
2470 RETURN 

2480 GOSUB2410:FORJ=1TOLO 
2490 IFFR=0THENGR=J ELSEI F J=1THE 
NGR=FR ELSEGR=VAL(RIGHT$(S$,3) ) 
2500 GET# 1 ,GR 

2510 IFRP$="Y"THENPRINT#DV / USING 
"REC:### ";GR; 
2520 FORM=lTON6 

2530 IFLEN ( LI$ ( M.) ) =0THENPRINT#DV 
:GOTO2620 

2540 FORK=lTOLEN ( LI $ ( M ) ) 
2550 ZZ=ASC(MID$(LI$(M) ,K,1) ) 
2560 A$=MID$(S$,S(ZZ) ,L(ZZ) ) 
2570 IF SB$<>"Y" THEN 2600 
2580 IF RIGHT$(A$ / 1)=" " THEN A$ 
=LEFT$(A$,LEN(A$)-1) : GOTO 2580 
2590 IF LEN(A$)=0 THEN 2610 
2600 IFPT$="Y"THENPRINT#DV,F$(ZZ 
)":"A$;" " ;ELSEPRINT#DV / A$ ; " "; 
2610 NEXTK : PRINT#DV 
2620 NEXTM 
2630 NEXTJ 

2640 FORM=lTON6:PRINT#DV:NEXT: :C 

LOSE#DV:GOTO100 

2650 CLS 

2660 PRINTFREE(0) "granules free" 

2670 FORI=3T011 

2680 DSKI$0,17,I,A$,B$ 

2690 FORJ=0TO3 

2700 C$=MID$(A$,J*32+1,12) :D$=MI 
D$(B$,J*32+1,12) 

2710 IFLEFT$(C$,1)=CHR$(255)THEN 
2790 

2720 IFLEFT$(C$,1)=CHR$(0)THEN27 
80 

2730 IFMID$(C$,9,3)<>"DEF"ANDMID 
$ ( C$ , 9 , 3 ) <> "DAT" ANDMID$ ( C$ , 9 , 2 ) < 
>"RP"ANDMID$ (C$ ,9,2) <>"LB"THEN27 
80 

2740 NN$=LEFT$(C$,8)+"/"+MID$(C$ 
,9,3) :K=K+1 

2750 IFKF=1THENIFLEFT$(NN$,8)=F1 
$THENKILLNN$ :PRINTNN$" killed" :G 
OTO2780ELSE2780 

2760 I FCF=1THEN IF LEFT$ ( NN$ , 8 ) = 
F1$THEN COPY NN$ : POKE&HFF40 , 0 : PR 
INT : PRINTNN$ " copied ": PRINT " INSE 
RT SOURCE DISK AND HIT ENTER" : GO 
SUB80:GOTO2780ELSE2780 
2770 PRINTNN$ 

2780 IFLEFT$(D$,1)=CHR$(255)THEN 
1=11: J=3:GOTO2850 

2790 IFLEFT$(D$,1)=CHR$(0)THEN 2 
850 

2800 IFMID$(D$,9,3)<>"DEF"ANDMID 
$(D$,9,3X>"DAT"ANDMID$(D$,9,2)< 
>"RP"ANDMID$ (D$,9,2) <>"LB"THEN28 
50 

2810 NN$=LEFT$(D$,8)+"/"+MID$(D$ 
,9,3) :K=K+1 

2820 IFKF=1THENIFLEFT$( NN$ , 8 ) =F1 
$THENKILLNN$ :PRINTNN$" killed":G 
OTO2850ELSE2850 

2830 IFCF=1THEN IF LEFT$ ( NN$ , 8 ) = 
F1$THEN COPY NN$ : POKE&HFF40 , 0 : PR 
INT : PRINTNN$ " copied" : PRINT" INSE 
RT SOURCE DISK AND HIT ENTER" :GO 
SUB80:GOTO2850ELSE28 50 
2840 PRINTNN$ 
2850 NEXTJ 
2860 NEXTI 

2870 POKE&HFF40,0:PRINT"hit any 
key to continue" 
2880 GOSUB80 
2890 RUN 
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2900 CLEAR10000:GOSUB70:IF Fl$=" 

"THEN 100 
2910 CF=1:G0T0 2660 
2920 PRINT "SORTING" :A=0:NN=0 
2930 DEFUSR0=&H01DC 
2940 NN=VARPTR(IX$(0) ) 
2950 POKE & H0 IDA , INT ( NN/256 ) 
2960 POKE&H0lDB,NN-INT(NN/256)*2 
56 

2970 A=USR0(0) 
2980 RETURN 

2990 CLS : PRINT " LOADING sort ROUT 
INE INTO MEMORY" 

3000 B=0:FOR ADDR=&H01DC TO&H024 
2 : READA$ : POKEADDR , VAL ( " &H " +A$ ) :B 
= B+VAL( "&H"+A$) :NEXT:IF BO10945 
THEN PRINT"ML ERROR IN SORT ROU 
TINE" :STOP 

3010 DATA BE, 01, DA, 34, 10, EE, E4, A 

E, 5E,30, 1F,4F,3 4,12,A6,C4,27,2A, 
A6, C4,E6, 45 ,A0,4 5,24,02,E6,C4, 3 4 
,01,AE,4 2,10,AE,47,6D,4 5,26,04,3 
2,61,20,29,A6,80,A0,A0,27,04,32, 
61,20,05,5A,26,F3,35,01,23,18,AE 
,42,10,AE,47,AF,47,10,AF,4 2,A6,C 
4,E6,45,E7,C4,A7,45,EA,4 

3020 DATAEA,E4,E7,E4,33,45,AE,61 
,30,1F,AF,61,26,B0,A6,E4,32,6 3,2 
6, Al, 32, 62, 39 

3030 IF PEEK(&H0243)=&H77 THEN R 
ETURN 

3040 IFPEEK(&H010D)=215THENCLS:P 
OKE&H0243,&H77:PRINT"INSTALL A S 
POOLER IN UPPER 32K (Y/N): YOU 
WILL ONLY BE ASKED THIS QUESTI 
ON ONCE AT THE START OF THE SESS 
ION. " :GOSUB80: IFA$<>"Y"THENRETUR 
N ELSE3050ELSE RETURN 
3050 PRINT"loading" : B=0 : POKE&HFF 

DE, 0: FORI = SeH7F5D T0&H7FFF : READA$ 
: POKE I , VAL ( " & H " +A$ ) : B=B+VAL ( " & H " 
+A$):NEXT:IF B016911 THEN PRINT 
"ML ERROR IN SPOOLER" : STOP 

3060 DATA34,12,30,8D,00,52,BF,01 
,68,96,96,97,E6,30,8C,F0,8E,FE,F 

F, AF,8D,00,85,8E,80,00,AF,8D,00, 
80,AF,8D,00,7E,30,8D,00,05,BF,01 
,0D,3 5,9 2,AE,8D,00,6F,AC,8D,00,6 

D, 27,20,F6,FF,22,54,2 5,1A,7F,FF, 

DF , A6 , 8 4 , 7 F , FF , DE , BD , 8 E , 0C , 30 , 01 
,AC,8D,00,50,26,03,8E,80 

3070 DATA00,AF,8D,00,49,7E,D7,BC 
, 34, 02, 96, 6F, 81, FE, 27, 05, 35, 02, 7 

E, CB,4A,35,02,0C,9C,81,0D,26,04, 
0F,9C,86,0D,3 2,62,34,10,AE,8D,00 
,27,1A,50,7F,FF,DF,A7,84,7F,FF,D 
E,1C,AF,30,01,AC,8D,00,11,26,03, 
8E , 80 , 00 , AC , 8D , 00 , 0A ,27,FA,AF,8D 
,00,06,35,90,25,FF,7F,FF 

3080 DATA7F , FF , 00 
3090 EXEC&H7F5D 
3100 RETURN 

3110 IFPEEK(25)=14THENCLEAR11536 
,&H7F5C:GOTO20 ELSE PMODE0:PCLEA 
Rl :CLEAR10000,&H7F5C:GOTO20 



Program Listing 2. Modifications for DECB 1.1 
Users 

3040 IFPEEK(&H010D)=216THENCLS:P 
OKE&H0243,&H77:PRINT"INSTALL A S 
POOLER IN UPPER 32K (Y/N): YOU 
WILL ONLY BE ASKED THIS QUESTI 
ON ONCE AT THE START OF THE SESS 
ION. " : GOSUB80 : IFA$<> " Y "THENRETUR 
N ELSE3050ELSE RETURN 
3050 PRINT"loading" : B=0 : POKE&HFF 



DE,0:FORI=&H7 
:POKEI,VAL( " & 
+A$) :NEXT:IF 
"ML ERROR IN 
3070 DATA00 , A 
,34, 02, 96, 6F, 
E,CC,1C,35,02 
0F,9C,86,0D,3 
,27,1A,50,7F, 
E,1C,AF, 30,01 
8E, 80, 00, AC, 8 
,00,06,35,90, 



F5D T0&H7FFF : READA$ 
H"+A$) :B=B+VAL( "&H" 
B016854 THEN PRINT 
SPOOLER" :STOP 
F,8D,00,49,7E,D8,AF 
81, FE, 27, 05, 35, 02, 7 
,0C,9C,81,0D,26,04, 
2,62,34,10,AE,8D,00 
FF,DF,A7,84,7F,FF,D 
, AC, 8D, 00, 11, 26, 03, 
D,00,0A,27,FA,AF,8D 
25,FF,7F,FF 



Program Listing 3. The Help Database 

REC: 1 define: FIELD NAMES AND LENGTHS 
REC: 2 ARE DEFINED FOR THE RECORD. THE 
REC: 3 LAST FIELD SHOULD BE 6 
REC: 4 CHARACTERS LONG TO BE USED FOR 
REC: 5 POINTERS WHEN INDEXING IS DONE. 
REC: 6 THE TOTAL LENGTH OF THE RECORD 
REC: 7 MUST BE < 255 CHARACTERS. WHEN 
REC: 8 THE RECORD HAS BEEN DEFINED, YOU 
REC: 9 WILL HAVE A CHANCE TO MODIFY OR 
REC: 10 ADD MORE FIELDS. ONCE DATA HAS 
REC: 11 BEEN ENTERED INTO THE DATABASE 
REC: 12 THE TOTAL LENGTH OF THE FILEDEF. 
REC: 13 SHOULD NOT BE CHANGED OR GARBAGE 
REC: 14 WILL RESULT. A HARD COPY IS 
REC: 15 AVAILABLE FOR LATER REFERENCE. 
REC: 16 IF A MISTAKE IS MADE IN THE NAME 
REC: 17 OF A FIELD, BY HITTING ENTER FOR 
REC: 18 THE LENGTH, YOU CAN GET BACK TO 
REC: 19 CHANGE THE NAME. TO EXIT THE 
REC: 20 DEFINE MODE TYPE SHIFT-CLEAR FOR 
REC: 21 THE NAME FIELD. THE DEFINITION 
REC: 22 IS STORED IN F I LENAME/DEF . 
REC: 23 INDEX INFORMATION IN STORED IN 
REC: 24 THIS FILE WHEN THAT FUNCTION HAS 
REC: 25 BEEN PERFORMED SUCH AS INDEX 
REC: 26 NAME, 1ST AND LAST INDEX RECORD 
REC: 27 THIS INFORMATION IS DISPLAYED 
REC: 28 IN OTHER MENU MODES. 
REC: 29 add: IN THIS MODE, RECORDS ARE 
REC: 30 ADDED TO THE END OF THE CURRENT 
REC: 31 DATABASE. FIELDS ARE SHOWN ON 
REC: 32 THE SCREEN WITH DOTS TO SHOW 
REC: 33 THE LENGTH OF THE FIELD. BY 
REC: 34 TYPING QUIT ON ANY LINE, YOU 
REC: 35 WILL ENTER THE DISPLAY MODE ON 
REC: 36 THE PREVIOUS RECORD NUMBER. 
REC: 37 HITTING ENTER ON A FIELD WILL 
REC: 38 BRING UP THE PREVIOUSLY TYPED IN 
REC: 39 VALUE FROM ADD MODE. 
REC: 40 UP TO 700 RECORDS CAN BE ADDED. 
REC: 41 MORE CAN BE ADDED BY STARTING 
REC: 42 THE SYSTEM UP AS FOLLOWS: 
REC: 43 POKE 25,14:POKE 3584,0:NEW 
REC: 44 RUN"FILES+" . THE DIMENSION 
REC: 45 OF IX$ MUST 3E INCREASED. 
REC: 46 display: MEANING OF OPTIONS: 
REC: 47 <- DISPLAY PREV. INDEX RECORD 
REC: 48 Q QUIT AND RETURN TO MAIN MENU 
REC: 49 # PROMPT FOR NEW RECORD # 
REC: 50 U UPDATE A FIELD BY NUMBER 
REC: 51 R REPLACE ALL FIELDS - ENTER 
REC: 52 WILL RETAIN OLD VALUE 
REC: 53 A GO TO ADD MODE 
REC: 54 D DELETE BY SETTING = CHR$(0) 
REC: 55 P DUMP RECORD TO PRINTER 
REC: 56 N DISPLAY NEXT PHYSICAL RECORD 
REC: 57 L DISPLAY PREVIOUS PHYSICAL REC. 
REC: 58 S GO TO SEARCH MODE 
REC: 59 -> GO TO NEXT INDEXED RECORD # 
REC: 60 kill: VERIFICATION IS ASKED AND 
REC: 61 THEN ANY FILE WITH AN EXTENSION 
REC: 62 OF DEF/DAT/LB-/RP- WITH THE 
REC: 63 GIVEN FILENAME WILL BE DELETED 
REC: 64 FROM THE DISKETTE. BE CAREFUL. 
REC: 65 NO HELP AVAILABLE 

REC: 66 search: SEARCH WILL LOOK AT 
REC: 67 EACH RECORD STARTING FROM THE 
REC: 68 CURRENT OR FIRST, BY FIELD OR BY 
REC: 69 LOOKING AT THE ENTIRE RECORD AS 
REC: 70 A STRING. WHEN BY FIELD, THE 
REC: 71 MATCHING STRING MUST MATCH THE 
REC: 72 THE FIELD STARTING WITH THE LEFT 
REC: 73 MOST CHARACTER TILL THE END OF 
REC: 74 THE SEARCH STRING. WHEN BY 
REC: 75 STRING, THE RECORD IS SELECTED 
REC: 76 IF ANY SUBSTRING MATCHES THE 
REC: 77 SEARCH STRING. HITTING ENTER 
REC: 78 FOR FIELD AND SEARCH STRING WILL 
REC: 79 FIND THE DELETED RECORDS. WHEN 
REC: 80 A RECORD IS FOUND, Q WILL SHIFT 
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81 TO THE VIEW MODE ON THAT RECORD. 

82 HITTING ENTER WILL LOOK FOR THE 

83 NEXT OCCURENCE OF THE SEARCH 

84 STRING. 

85 create index: THE DATA BASE WILL 

86 BE SORTED ALPHABETICALLY BY THE 

87 SPECIFIED FIELD. POINTERS TO THE 

88 PRECEDING AND SUCCEEDING RECORD 

89 WILL BE STORED IN THE LAST 6 

90 BYTES OF EACH RECORD. THESE 

91 POINTERS ARE USED BY THE VIEW 

92 AND REPORTS OPTIONS TO DISPLAY 

93 THE DATA BASE IN SORTED ORDER. 

94 BY SPECIFYING A FIELD LENGTH 

95 LONGER THAN THE FIELD, THE NEXT 

96 FIELD MAY BE INCLUDED IN 

97 THE SORT. SORTING IS DONE IN 

98 MEMORY SO THAT # OF RECORDS X 

99 INDEX LENGTH MUST FIT INTO THE 

100 STRING SPACE OF ABOUT 10000 

101 BYTES. DUE TO GARBAGE 

102 COLLECTION ROUTINES, PROCESSING 

103 MAY APPEAR TO HALT FOR A SHORT 

104 TIME OCCASIONALLY. 

105 reports: STANDARD REPORTS WILL 

106 DISPLAY FIELDS ACROSS THE TOP 

107 AND PUT AS MANY RECORDS DOWN 

108 THE PAGE AS POSSIBLE. RECORDS 
GREATER THAN VARIABLE QW IN LINE 
11 WILL BE FOLDED AUTOMATICALLY. 

111 IT IS POSSIBLE THAT THE FOLD 

112 WILL OCCUR IN THE MIDDLE OF A 

113 FIELD. THIS CAN BE CONTROLLED 

114 BY SMARTLY DEFINING THE NAMES OF 
:115 THE FIELDS. THE WIDTH OF A 
:116 FIELD IS DETERMINED BY THE 
:117 GREATER OP FIELD NAME OR FIELD 
: 118 WIDTH. TWO SPACES ARE THEN 
: 1 19 ADDED TO THIS NUMBER. BY 
:120 EXPERIMENTING AND REDEFINING 
:121 FIELD NAMES USING OPTION D, A 
:122 PROPER REPORT CAN BE OBTAINED. 
:123 YOU WILL BE ABLE TO SELECT WHICH 
:124 FIELDS TO PRINT, BUT THE ORDER 
:125 IS DETERMINED BY THE FILE DEF. 
: 126 MULTI LINE LABELS CAN BE DEFINED 
:127 AND THE ORDER OF FIELDS CAN BE 
:128 SPECIFIED. THE SAME FIELD CAN 
:129 PRINT ON MORE THAN ONE LINE IF 
:130 DESIRED. ONE SPACE CAN BE LEFT 
: 1 3 1 BETWEEN FIELDS TO CLOSE GAPS 
:132 OR FIELDS WILL LINE UP ACCORDING 
: 1 33 TO WIDTH. THE NAME CAN BE 
:134 PRINTED NEXT TO THE FIELD OR NOT 
:135 AND RECORD NUMBER CAN BE SHOWN. 
:136 IF A BLANK LINE SHOULD BE LEFT 
:137 BETWEEN RECORDS, DEFINE THE # OF 
:138 LINES 1 GREATER THAN OTHERWISE. 
:139 EXPERIMENT WITH THIS OPTION TO 
:140 GET THE DESIRED OUTPUT. THE 
:141 OPTIONS CAN BE SAVED IN FILES 
:142 SUCH AS ABCD/LBl ABCD/LB2 
:143 XYZ/RP1 ETC. WHERE LB IS USED 
:144 FOR LABELS AND RP FOR REPORTS. 
-.145 backup: THIS FUNCTION WILL COPY 
:146 THE FILES ASSOCIATED WITH THE 
:147 CURRENT DATABASE FILENAME TO 
:148 ANOTHER DISKETTE. FILES WITH 
:149 EXTENSIONS OF def /dat/rp-/lb-/ 
:150 WILL BE COPIED. YOU WILL BE 
: 1 51 PROMPTED WHEN TO CHANGE DISKS 
:152 make: THIS OPTION WILL READ 
:153 DIRECTORIES FROM DISKETTES AND 
:154 MAKE A DATABASE FROM THEM. IT 
:155 AUTOMATICALLY READS NAME, EXT, 
:156 TYPE CODE, ASCII FLAG, 1ST GRAN, 
:157 BYTES IN LAST SECTOR, AND GRANS 
:158 FROM THE FILE ALLOCATION TABLE. 
:159 YOU WILL BE PROMPTED TO ENTER 
:160 A CODE TO IDENTIFY THE DISKETTE. 
:161 IN ORDER TO USE THIS FUNCTION 
:162 A FILE DEFINITION MUST HAVE BEEN 
:163 PREVIOUSLY DEFINED TO HOLD THESE 
:164 FIELDS. AN EXAMPLE FOLLOWS: 



:165 
:166 
: 167 
:168 
:169 
:170 
:171 
:172 8. 
:173 9. 



NAME 


8 


EXT 


3 


TYPE 


1 


ASCII FLAG 


1 


HEX 1ST GRAN 


2 


LAST BYTES 


4 


DISK ID CODE 


2 


HEX F.A.T. 


20 


COMMENT 


? ? 


POINTERS 


' 6 



:175 files: DISPLAY ALL DATABASE 

:176 RELATED FILES - THOSE ENDING IN 

:177 def/dat/rp-/lb-/. IT ALSO SHOWS 

:178 THE REMAINING DISK SPACE. ,_. ir ^ 

END 
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77i#s is one of those rare 
programs that will captivate 
everyone in your family.... 
No one can see CoCo Max 
and not want to try it! 
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We are all witnessing an exciting revolu- 
tion in microcomputers: a radically new 
kind of computer and software that 
opens a whole new world of creative 
power to computer users. 

It was inevitable that this exciting ap- 
proach would be brought to the CoCo. 
With this in mind, Colorware chose to 
go all out and maximize this new con- 
cept for the color computer. That meant 
designing not just software but hardware 
too. It meant thousands of hours of pure 
machine language programming. Rarely 
has this much effort been applied to one 
product for the Color Computer. 
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UNMATCHED CAPABILITY.. 

Because we took the maximum approach: 
highly optimized machine code combin- 
ed with hardware, CoCo Max truly 
stands above the rest as the ultimate 
creative tool for the Color Computer. It's 
unrivaled performance lets you create 
with more brilliance and more speed 
than any similar system - much more 
than you ever imagined possible. And, 
you can do it in black & white or color. 




All the sophisticated power of the bigger 
systems is there: Icons, Pull-Down Menus, 
full Graphic Editing, Font Styles, and all 
kinds of handy tools and shortcuts. 

Plug your joystick, mouse or touch pad 
into CoCo Max's Hi-Res Input Unit. Then 
use a delightfully simple Point-and-Click 
method to get any of CoCo Max's power- 
ful graphic tools. It has them all: 



You can Brush, Spray or Fill with any Col- 
or, Shading or Pattern. Use Rubber Band 
Lines and Shapes (square, rectangle, cir- 
cle, elipse, etc.) to create perfect illustra- 
tions with speed and ease. There's a Pen- 
cil, an Eraser and even a selection of 
Caligraphy Brushes. And, as you can see, 
CoCo Max can do a lot with text. 
All of the newest special effects are 
there: Trace Edges, Flip, Invert, Brush Mir- 
rors, etc. And all of the very latest super- 
capabilities like: Undo, which 
automatically reverses your mistakes, and 
Fat Bits which zooms you way in on any 
part of your subject to allow doMor-dot 
precision. 




THE BIG PICTURE 

The large image box in the middle of the 
CoCo Max screen is actually only a win- 
dow on an even larger image. Use the 
Point-and Click "Hand" to effortlessly 
move your window over any portion of 
the larger image. You have a working 
area of up to 3-Vi times the area of the 
window itself. 



FLEXIBLE PRINTING... 

CoCo Max gives you many ways to print. 
Fill a whole page with your image or 
condense two full CoCo screens to less 
than Va page for a finely detailed copy. 
"Dump" your CoCo Max screen full size 
or shrink it to Vs page size. 



FREEDOM TO CREATE... 

Anyone who wants to create anything at 
all on their CoCo screen or printer will 
certainly be very glad to meet CoCo 
Max. CoCo Max's friendly yet 
sophisticated graphic and text 
capabilities let you almost instantly pro- 
duce illustrations, diagrams, charts, 



File Edit Goodies Font style 




graphs, and computer art - tor serious 
use or just tor creative tun. 
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tion by using software schemes such as 
sliding windows. Although clever, these 
schemes yield sluggish and awkward 
results. Only CoCo Max does it the right 
way. The CoCo Max Hi-Res Input Unit 
plugs into your ROM slot and adds an 
entirely new joystick input to your com- 
puter - a precision one with a 49,152 
point resolution to match the CoCo 
screen exactly. 

Plug your same joystick, mouse or touch 



You may then use CoCo Max's graphic 
magic on it. The DS-69 is available as an 
option from Colorware from $149.95 
complete with its own software on disk 
or tape. Using the DS-69 with a disk re- 
quires an RS multi-pak adaptor. 




COCO MAX REQUIREMENTS 

The CoCo Max System includes the Hi- 
Res Input Unit, software on disk or 
cassette (please specify) and user manual. 
It will work on any 64K Extended or non- 




AN ABSOLUTE GUARANTEE 

CoCo Max is a hardware software System 
that no software-only system can 
matc h. Get CoCo Max and see your 
CoCo perform as it never could before. 
It you don't agree that CoCo Max is the 
ultimate creative tool for the Color Com- 
puter, simply return it within 10 days for 
a full, courteous refund from Colorware. 

THE HARDWARE... 

This is the key to CoCo Max's unmatch- 
ed performance. Did you know the nor- 
mal joystick input built into the Color 
Computer only allows access to 4,096 (64 
x 64) points on the CoCo screen? Yet, the 
Color Computer's high resolution screen 




has 49,152 (256 x 192) pixels. This means 
that a joystick, mouse or even a touch 
pad can, at best, only access about one 
tenth of the pixels on the CoCo screen. 

Most graphic programs ignore this hard- 
ware limitation of the Color Computer 
and give you only low-res control. 
Others attempt to overcome the limita- 



pad into this new input and you have a 
whole new kind of control. The dif- 
ference is remarkable. 




A DIGITIZER OPTION... 

We studied all the video digitizers 
available and picked the best of them to 
link with CoCo Max. The DS-69 from 
Micro Works was our choice. This op- 
tional device lets you capture the image 
from any video source (video recorder, 
camera, etc.) on your Color Computer. 




extended Color Computer. You'll need a 
Radio Shack or equivalent joystick, 
mouse or touch pad. Disk systems re- 
quire a Multi-Slot Interface or Y- 
Branching Cable. 

THE COMPLETE COCO MAX SYSTEM, 
with software on DISK $69.95 

with software on CASSETTE (Available 
Mar '85) $69.95 

Y-BRANCHING CABLE-U you have a disk 
system but do not have a Multi-Slot In- 
terface, use this economical 40-pin, 1 
male, 2 female cable to connect the 
CoCo Max Hi-Res input unit and your 
disk controller to your CoCo $27.95 

(Sorry, not compatible with j DOS) 
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Colorware Inc. 

78 03G Jamaica Ave. 

Woodhaven, NY 11421 

(718) 647-2864 



VISA 
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MasterCard 



ORDERING INFORMATION 

ADD $3.00 PER ORDER FOR SHIPPING AND HANDLING. 
C.O.D.'S ADD $3.00 EXTRA. 

SHIPPING AND HANDLING FOR CANADA IS $5.00 
WE ACCEPT VISA, MASTER CARD, M.O.'S, CHECKS. 
N.Y. RESIDENTS MUST ADD SALES TAX. 



UTILITY—— m 
by Michael Johnson 





Take charge of your disk files. 



In trying to learn W5^!6out the workings 
of the Color Computer, I have bought 
many books and magazines. Using informa- 
tion culled from these sources and the 
DSKO$ and DSKI$ commands that I stum- 
bled across in the back of the disk-owners 
manual, I developed four disk utility pro- 
grams. Utility, Snooper, Specs, and Restore 
act as one program because they run one an- 
other. They allow you to alphabetize direc- 
tories, edit the FAT (file-allocation table), 
change file specs, and restore garbled disks 
and files that you have mistakenly killed. To 
better understand these features, you need 
to know how disks are organized. 

Disk Organization 

Track 17 of a disk stores the housekeeping 
information; sector 2 monitors the disk gran- 
ules and their functions. Table 1 shows the 
codes that the computer uses to load in the 
correct granules and determine the length of 
any file. If the number is 255 (FF in hexade- 
cimal), the granule is free. A number from 
0-63 (00-43 hex) indicates that the granule 
is part of a file and that the next granule is a 
number from 0-67. Finally, a number from 
192-201 (C0-C9 hex) specifies that the gran- 
ule is the end of the file. It also tells how 
many sectors of that granule are in use. 

Bits 1-5 give a number from 1-9. Sectors 
3-1 1 hold up to 72 entries, but due to storage 
limitations, the computer can use only 68 en- 
tries. Table 2 shows the function of each byte 
in each directory entry. Manipulation of 
these bytes is central to my utilities. 

When you use Basic's SAVEM command, 
the directory is automatically updated to in- 
clude a listing for the file you have saved. 
However, there is no command that allows 
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Bytes Meaning 

FF Free Granule 
00-43 Part of file, points to the next 
granule. 

C0-C9 End of file, number of sectors used. 

Table 1. Meanings of Bytes in the Granule-Al- 
location Table 



Bytes Contents 

0-7 File Name 

8-10 Extension 

11 File Type 

12 ASCII Flag 

13 Number of First Granule 
14-15 Number ofBytes in the Last Sector 
16-32 Future Use 

Table 2. Function of Bytes in Each Directory 
Entry 

Bytes Contents 

0 Length of Least-Significant Byte 

1 Length of Most-Significant Byte 

2 Start of Least-Significant Byte 

3 Start of Most-Significant Byte 
4 and on Machine-Language Program 

Table 3. Disk Storage for Machine-Language 
Programs Saved from Basic 

System Requirements 

16K RAM 
Disk Extended Color Basic 
Disk Drive 



you to find the parameters of that file. You 
can, however, retrieve these parameters by 
examining the format that the computer 
uses to save the file. The parameters are 
stored in bytes 0-3 of saved programs, as 
shown in Table 3. 

Utility 

Utility (Listing 1) combines a machine-lan- 
guage utility and a granule-allocation editor. 
Lines 1000-1050 set up the arrays and ini- 
tialize the graphics screens. Lines 1060- 
1 190 are the menu driver and allow you to 
choose four options: 

1 Machine-Language Parameters 

2 Granule Allocation 

3 Directory Manipulation 

4 End 

If you select option 1, the program goes to 
line 2000. Lines 2000-2110 pause for key- 
board input, giving you time to insert the 
disk you want to view and select decimal or 
hexadecimal output. From there, the pro- 
gram uses three loops to load each entry and 
check to see whether it is used, whether it is 
the last, and whether it is a machine-lan- 
guage program. 

If the program finds a machine-language 
file, it jumps to line 2310. Utility then loads 
the first sector of the file and calculates the 
parameters. It prints the file name, the exten- 
sion, and the parameters and jumps back 
into the loop to look for other machine-lan- 
guage programs. 

Line 2380 deserves special attention. I 
have converted my EDTASM + to disk; when 
it assembles a program, it stores it in a 
slightly different format. Whenever I tried to 
calculate the machine-language parameters, 



This program is available on our Instant CoCo cassette. U_(\\7"AJ 
See the Instant CoCo ad elsewhere in this issue. , — LOCO 




onable results. 
f80 to trap most of 
liyone could develop a 
Tor finding the parameters 
'would be a welcome addition. 
^EEKs in this line calculate the 
lum memory in your system. Many of 
Bu could use this trick in loading relocatable 
code into any machine. 

Lines 2400-2490 control the page format 
by counting the number of lines on the 
screen and prompting you when it is almost 
full. The granule-allocation editor begins at 
line 2500. Lines 2620-2640 contain a pause 
for keyboard input; after you insert the disk 
to be analyzed, press the enter key to con- 
tinue. The program loads the strings with the 
sector containing the granule-allocation ta- 
ble and jumps to the subroutine that loads 
the GR array with the status of each granule. 
If you choose to see a graphic display, you 
can elect to see a representation of the used 
or free granules; the display appears in two 
parts. The first shows granules 1-34; the sec- 
ond shows granules 35-67. To continue after 
each display, press any key. 

After the display, you can change the allo- 
cation table by first entering the granule 
number and then specifying whether you 
want this to be a used or unused granule. If 
you elect to use a granule, you must decide 
whether you want to use it as part of a file or 
as the end of a file. If the granule is at the end 
of the file, the program requires you to spec- 
ify the number of sectors used in the file. If it 
is part of a file, the program asks for the next 
granule. When you enter the number 68, the 
program rewrites the granule-allocation ta- 
ble and returns you to the menu. 

Snooper, Specs, and Restore 

When you select option three from the 
main menu, the program jumps to line 4000. 
Insert the Utility disk; when you press the 
enter key at the prompt, Utility calls the di- 
rectory-manipulation program, Snooper 
(Listing 2). After the program clears string 
space and dimensions variables, you see a 
submenu with five options: 



1 Alphabetize Catalog 

2 Change File Specs 
!3 Restore Old Entries 

4 Directory Listing 

5 Return to Main Menu 

If you press the first option, control is 
transferred to the subroutine beginning in 
line 5000. The program prompts you to in- 
sert the disk you want to alphabetize. 
Snooper loads the directory by using the sub- 
routine that starts at line 9000. It then asks 
whether you want to sort by name or file ex- 
tension and copies the appropriate section of 
the directory entries into a separate array. 
The program sorts the array using a shell 
sort; the subroutine at 8000 then rewrites 
the alphabetized directory to the disk. 

With option two, you can change the file 
specifications. The program transfers control 
to line 6000 and you are prompted to insert 
the Utility disk and press the enter key. The 
computer loads and runs Specs (Listing 3), 
which clears string space, dimensions an ar- 
ray, and prompts you to press the enter key 
to start. The subroutine in line 9000 (this is 
the same routine found in Snooper) loads the 
array with the directory entries. 

When you return to the main routine, the 
program asks you to enter the file name and 
extension of the program for which you want 
to change the file specs. It checks the EN$ 
array to ensure that the entry exists; if it 
does, the program prints the entry on the 
screen. The display is in a special extended 
form that includes the name, extension, file 
type (BASC, MACH, DATA, TEXT), ASCII flag 
(ASC, BIN), number of the first granule, and 
number of bytes in the last sector of the file. 

Directly below the entry listing is a prompt 
telling you to submit the new entry in the 
same format. The program checks the new 
entry for validity, and if it is valid, Specs con- 
verts the entry to directory format and writes 
it back to disk. Finally, you are prompted to 
insert the Utility disk. Snooper is loaded in 
and you are returned to the submenu. 

Option 3 allows you to restore killed direc- 
tory entries. The program switches control to 
line 7000; in line 7020, Snooper runs Restore 



(Listing 4). After you press the enter key to 
start, Restore transfers control to the subrou- 
tine in line 9000. With the exception of line 
9060, which was omitted to allow deleted en- 
tries to be put into array EN$, this subroutine 
is identical to the ones starting at line 9000 
in Snooper and Specs. 

Restore searches array EN$ for deleted 
files by looking for one that begins with a null 
character (zero). When it finds one, it re- 
places the zero with an inverse R to signify 
that it is a deleted file. The subroutine at line 
8000 then rewrites the directory to the disk 
and control returns to Restore's main pro- 
gram line. In line 7150 the command, 
RUN"Snooper M , returns you to Snooper's 
submenu. Press the five key to display Utili- 
ty's main menu, from which you can exit to 
Basic. 

Using the Programs 

You can use these utilities in many ways. 
If, for example, you have killed a file by mis- 
take, you could restore the directory entry 
using Restore, set the first granule and num- 
ber of bytes in the last sector with Specs, and 
then give the correct values to the granules 
in the allocation table. 

On a 32 or 64K Color Computer, you could 
combine the four programs. To do so, place 
all of the initialization statements at the be- 
ginning of the program— it is numbered in 
such a way that merging is easy. Treat 
Snooper, Specs, and Restore as subroutines, 
omitting the RUN statements that load the 
programs from disk and replacing them with 
RETURN. Because all the routines that ma- 
nipulate the disk (Snooper, Specs, and Re- 
store) use the subroutine that starts at 9000, 
you need to include it only once. However, 
you must insert a line (before each call to the 
subroutine) that allows you to control 
whether deleted files can be stored in array 
EN$.B 



Address correspondence to Michael John- 
son, 7481 Greenway Drive, Jacksonville, FL 
32210. 



Program Listing 1. Utility 



1000 REM DISK UTILITIES 

1010 REM BY MIKE JOHNSON 

1020 REM 

1030 PCLEAR 4 

1040 CLEAR 1000 

1050 DIM GR(68) 

1060 CLS 

1070 PRINT"ENTER SELECTION: " 
1080 PRINT" (1) MACHINE LANGUA 
GE PARAM." 

1090 PRINT" (2) GRANULE ALLOCA 
TION" 

1100 PRINT" (3) DIRECTORY MAN I 
PULATION" 



1110 PRINT" (4) END" 
1120 EN$=INKEY$: IF EN$="" THEN 
1120 

1130 EN=VAL(EN$) 

1140 IF EN<1 OR EN>4 THEN 1120 

1150 ON EN GOSUB 2000,2500,4000, 

3520 

1160 PRINT"PRESS ENTER TO GO TO 
MENU" 

1170 IF INKEY$OCHR$(13) THEN 11 
70 

1180 GOTO 1060 
1190 END 

2000 REM MACHINE LANGUAGE FILE 
2010 REM PARAMETERS 
2020 REM M. JOHNSON : 3/11/83 
2030 REM 



2040 CLS 

2050 PRINT @ 163, "MACHINE LANGUA 
GE PARAMETERS" 

2060 PRINT @ 261, "PRESS <ENTER> 
TO BEGIN" 

2070 IF INKEY$OCHR$ ( 13) THEN 207 
0 

2080 CLS 

2090 PR I NT "DO YOU WANT THE PARAM 
ETERS IN DECIMAL OR HEXADECIMA 
L (D/H)?" 

2100 N$=INKEY$:IF N$=" "THEN 2100 
2110 IF N$<>"H" AND N$<>"D" THEN 
2080 

2120 REM READ DIRECTORY SECTOR 
2130 REM LOOK FOR BINARY FILES 
2140 REM 
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2150 FOR SE=3 TO 11 

2160 DSKI$ 0,17,SE,A$(1) ,A$(2) 

2170 FOR 1=1 TO 2 



2180 
2190 
32) 
2200 



FOR J=0 TO 3 

EN$=MID$(A$(I) , J*32+l, 



0 



IF ASC(LEFT$(EN$,1) ) 
THEN 2240 
2210 : IF ASC(LEFT$(EN$,1) )= 

255 THEN 2490 
2220 : IF MID$(EN$,13,1) <> 
CHR$(0) THEN 2240 
2230 : IF MID$(EN$,12 f l)= 

CHR$(2) GOSUB 2310 
2240 : NEXT J 
2250 NEXT I 
2260 NEXT SE 

2270 REM FIND FIRST GRANULE 
2280 REM OF PROGRAM AND GET 
2290 REM PARAMETERS FROM IT 
2300 REM 

2310 GR=ASC(MID$(EN$,14,1) ) 
2320 T=INT(GR/2) 
2330 S=(GR-T*2) *9+l 
2340 IF GR>32 THEN T=T+1 
2350 DSKI$ 0,T,S,AD$ r D$ 
2360 LN=ASC(LEFT$(AD$ f 1) ) + 

ASC(MID$(AD$ f 2 f l) )*256 
2370 ST=ASC(MID$(AD$,3,1) )+ 

ASC(MID$(AD$,4,1) ) *256 
2380 IF LN=0 OR LN+ST>PEEK ( 116 ) * 
256+PEEK(117) THEN 2400 
2390 IF N$="D" THEN PRINT LEFT$( 
EN$,1D ;TAB(16) ;ST;TAB(24) ; LN: EL 
SE PRINT LEFT$ ( EN$ , 11) ; TAB (16) ;H 
EX$(ST) ;TAB(24) ;HEX$(LN) 
2400 REM PAGE FORMATTING 
2410 REM SECTION 
2420 REM 

2430 CC=CC+1:IF CC<13 THEN RETUR 
N 

2440 CC=0 
2450 PRINT 

2460 PRINT"PRESS ENTER TO CONTIN 
UE"; 

2470 IF INKEY$OCHR$(13) THEN 24 
70 

2480 CLS 
2490 RETURN 

2500 REM GRANULE-A GRAPHIC REP- 
2510 REM RESENTATION OF GRANULE 
2520 REM ALLOCATION AND ALLOCA- 
2530 REM TION EDITOR 

2540 REM WRITTEN BY MIKE JOHNSON 
2550 REM FOR THE TRS-80 COCO 16K 
2560 REM 3/20/83 
2570 REM 

2580 REM INITIALIZATION: 

2620 CLS :PRINT@199, "GRANULE ALLO 

CATION" 

2630 PRINT@261 f "PRESS <ENTER> TO 
START" 

2640 IF INKEY$OCHR$(13)THEN2640 
2650 REM LOAD SECTOR INTO STRING 
2660 REM VARIABLES Al$ AND A2$ 
2670 REM 

2680 DSKI$ 0,17 f 2 f A$(l) ,A$(2) 
2690 GOSUB 2790: 'LOAD ARRAY 
2700 CLS 

2710 PRINT"DO YOU WANT A DISPLAY 
? (Y/N)" 

2720 N$=INKEY$:IF N$="N" THEN 33 
30 ELSE IF N$<>"Y" THEN 2720 
2730 INPUT" (U)SED OR (F) REE GRAN 
ULES";EN$ 

2740 IF EN$<>"U" AND EN$<>"F" 

THEN CLS: GOTO 2730 
2750 IF EN$="U" THEN F3=l 
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2760 IF EN$="F" THEN F3=0 

2770 GOSUB 2920: 'GRAPHIC DISP. 

2780 GOTO 3330 

2790 REM LOAD ARRAY SUBROUTINE 
2800 REM LOADS ARRAY GR WITH 
2810 REM 0'S AND l'S TO COR- 
2820 REM RESPOND WITH THE USE 
2830 REM OF THE GRANULE. 
2840 REM 

2850 FOR 1=1 TO 68 

2860 : A=ASC(MID$(A$(1) f I,l) ) 

2870 : IF A<>255 THEN C=l 

2880 : IF A=255 THEN C=0 

2890 : GR(I)=C 

2900 NEXT I 

2910 RETURN 

2920 REM DISPLAY CONTENTS MODULE 

2930 REM GRAPH ICLY DISPLAYS 

2940 REM THE CONTENTS OF THE 

2950 REM GR() ARRAY 

2960 REM 

2970 PMODE 4,1 

2980 PCLS 

2990 SCREEN 1,1 

3000 1=0 

3010 GOSUB 3060 

3020 PCLS 

3030 1=17 

3040 GOSUB 3060 

3050 RETURN 

3060 F2=l 

3070 GOSUB 3230 

3080 FOR J=I*2+1 TO 1*2+34 

3090 : PO=J 

3100 : IF J>34 THEN PO=PO-34 
3110 : IF GR(J)OF3 THEN 3180 
3120 : SC=PO/2 

3130 : IF SCOINT(SC) THEN F=-l 

3140 : IF SC=INT(SC) THEN F=l 

3150 : SC=INT(SC) 

3160 : SC=128+(F*SC*5-2) 

3170 : PAINT(SC,96) ,1,1 

3180 NEXT J 

3190 F2=0 

3200 GOSUB 3230 

3210 IF INKEY$=" " THEN 3210 

3220 RETURN 

3230 FOR J=l TO 17 

3240 : CIRCLE(128,96) ,J*5,F2 

3250 NEXT J 

3260 IF F2=0 THEN 3300 
3270 LINE(127,12)-(127,182) ,PSET 
3280 LINE(128,12)-(128,182) ,PSET 
3290 GOTO 3320 

3300 LINE(127,12)-(127,182) , 
PRESET 

3310 LINE(128,12)-(128,182) , 

PRESET 
3320 RETURN 

3330 REM CHANGE GRANULE ALLOC- 
3340 REM ATION FROM KEYBOARD. 
3350 REM 
3360 CLS 

3370 PRINT"TO CHANGE A SECTOR IN 

PUT THE # OF THE GRANULE." 

3380 PRINT"INPUT 68 FOR GRANULE 

# TO STOP." 

3390 INPUT GR 

3400 IF GR=68 THEN 3510 

3410 SP=ASC(MID$(A$(1) ,GR+1,1) ) 

3420 IF SP=255 THEN PRINT"THE GR 

ANULE WAS FREE" 

3430 IF SP<68 THEN PRINT"THE GRA 
NULE IS USED. THE NEXT GRANULE 

IN THE FILE IS";SP 
3440 IF SP>191 AND SP<255 THEN N 
B=SP AND 31: PRINT"THE GRANULE I 
S USED. IT IS THE LAST IN A FIL 



E. " ; NB ; " SECTORS OF IT ARE USE 
D." 

3450 INPUT"DO YOU WANT TO CHANGE 
IT TO A USED OR UNUSED SECTOR 

(1/0) ";U 

3460 IF U=0 THEN MID$ ( A$ ( 1) ,GR+1 
,1)=CHR$(255) :GOTO 3500 
3470 IF U=l THEN INPUT"DO YOU WA 
NT IT TO BE PART OF A FILE OR T 
HE END OF A FILE. (P/E)";A$ 
3480 IF A$="P" THEN INPUT" ENTER 
NUMBER OF NEXT GRANULE" ; G: IF G<0 
OR G>67 THEN 3480 ELSE MID$(A$( 
1) ,GR+1,1)=CHR$(G) 
3490 IF A$="E" THEN INPUT" ENTER 
NUMBER OF SECTORS USED IN LAST G 
RANULE";S:IF S<0 OR S>9 THEN 349 
0 ELSE MID$(A$(1) ,GR+1,1)=CHR$(S 
+192) 

3500 GOTO 3360 

3510 DSKO$ 0,17,2,A$(1) ,A$(2) :RE 
TURN 

3520 END 

4000 PRINT:PRINT"PRESS ENTER WHE 
N READY TO GOTO DIRECTORY SUB-M 
ENU" 

4010 IF INKEY$OCHR$(13) THEN 
4010 

40 20 RUN"SNOOPER" 



Program Listing 2. Snooper 

4000 CLEAR 3000 

4010 DIM EN$(67) ,AR$(67) 

4020 CLS : PRINT"DIRECTORY SUB MEN 

U" 

4030 PRINT" 1) ALPHABETIZE CAT 
ALOG" 

4040 PRINT" 2) CHANGE FILE SPE 
CS" 

4050 PRINT" 3) RESTORE OLD ENT 
RIES" 

4060 PRINT" 4) DIRCTORY LISTIN 
G" 

4070 PRINT" 5) RETURN TO MAIN 
MENU" 

4080 EN$=INKEY$: EN=VAL ( EN$) 
4090 IF EN<1 OR EN>5 THEN 4080 
4100 ON EN GOSUB 5000,6000,7000, 
7500,7750 

4110 PRINT"PRESS ENTER TO RETURN 

TO MENU" 
4120 IF INKEY$OCHR$(13) THEN 

4120 ELSE 4020 
5000 PRINT: PRINT"PRESS ENTER WHE 
N DISK TO BE ALPHABETIZED IS 

IN THE DRIVE" 
5010 IF INKEY$OCHR$(13) THEN 

5010 
5020 GOSUB 9000 

5030 INPUT"DO YOU WANT TO SORT B 
Y NAME OR EXTENSION (1/2)";EN$ 
5040 EN=VAL(EN$) :IF EN<1 OR EN>2 

THEN 5030 
5050 FOR 1=1 TO N:IF EN=1 THEN A 
R$(I)=LEFT$(EN$(I) ,8) ELSE AR$(I 
)=MID$(EN$(I) ,9,3) 
5060 NEXT I:G=N 
5070 IF G<=1 THEN 5150 
5080 G=INT(G/2) 
5090 M=N-G 

5100 F=0:FOR 1=1 TO M:P=I+G 
5110 IF AR$(I)<=AR$(P) THEN 5130 
5120 T1$=AR$(I) :T2$=EN$(I) :AR$(I 
)=AR$(P) :EN$(I)=EN$(P) :AR$(P)=T1 
$:EN$(P)=T2$:F=1 

Listing continued 



64K EXT. BASIC 134 95 

Color Computer II 

Monitor Interface for above CoCo II 29.95 plus 7.50 installation, (color & green compatible) 




V 




2 Drives 299 95 

Both our drive 0 and 1 in one case, with cable and 
R.S. controller. The best just got better! 




Drive 1 Upgrade 89 95 

Add a second V2 height drive to your Radio Shack 
26-3129. Comes with 3 minute installation instruc- 
tions, screwdriver required. 




Drive 1 



115 



95 



Your Choice 
Silver or White 



179 



95 



Drive 0 



SUPER DRIVE SALE 



SDecial prices on new first quality disk drives. They even have GOLD connectors on the back... Some other 
placeschaS 

external mod IIUV. Drive 1jus^ 
come%o^ 

DS-DOS, boards and knowledge) Bare full hgt SSDD drive only J9£5. 

THE COMPUTER CENTER 
901-761-4565, 5512 Poplar, Memphis, TN 38119 
Add $4.90 for shipping and handling— Visa, MC & money orders accepted 
Allow an additional 2 weeks for personal checks-Drive faceplates may vary slightly 



5130 NEXT I:IF F>0 THEN 5100 
5140 GOTO 5070 

5150 GOSUB 8000:PRINT:RETURN 
6000 PRINT:PRINT"PRESS ENTER WHE 
N THE UTILITY DISK IS IN PLAC 
E" 

6010 IF INKEY$OCHR$(13) THEN 

6010 
6020 RUN"SPECS" 

7000 PRINT: PRINT"PRESS ENTER WHE 
N THE UTILITY DISK IS IN PLAC 
E" 

7010 IF INKEY$OCHR$(13) THEN 
7010 

7020 RUN" RESTORE" 
7500 CLS:DIR 
7510 RETURN 

7750 PRINT: PRINT"PRESS ENTER WHE 
N THE UTILITY DISK IS IN PLAC 
E" 

7760 IF INKEY$OCHR$(13) THEN 

7760 
7770 CLEAR 1000 
7780 RUN"UTILITY" 
8000 L=0 

8010 : A$(0)="":A$(1)="" 

8020 : FOR J=0 TO l:FOR K=0 

TO 3:C=K+(J*4)+(L*8)+1:A$(J)=A$( 

J)+EN$(C) : NEXT K,J 

8030 I=L 

8040 IF LEN(A$(0) )<128 THEN A$(0 
) =A$ ( 0) +CHR$ ( 255) +STRING$ ( 127-LE 
N(A$(0) ) ,0) 

8050 IF LEN(A$(1) )<128 THEN A$(l 
) =A$ ( 1) +CHR$ (255) +STRING$ ( 127-LE 
N(A$(1)) r 0) 

8060 DSKO$ 0,17 r L+3 f A$(0) ,A$(1) 
8070 L=I 

8080 L=L+1:IF L<=INT(N/8) THEN 
8010 

8090 A$(0)=CHR$(255)+STRING$(127 
,0) 

8100 A$(1)=STRING$(128,0) 
8110 DSK0$ 0,17,L+3,A$(0) ,A$(1) 
8120 RETURN 
9000 N=l 

9010 FOR A=3 TO 11 

9020 DSKI$ 0,17,A,A$(0) ,A$(1) 

9030 FOR J=0 TO 1 

9040 : FOR 1=0 TO 96 STEP 32 

9050 : EN$=MID$(A$(J) ,1+1,32) 

9060 : IF ASC(MID$(EN$,1,1) )= 

0 THEN 9100 
9070 : IF ASC (MID$ (EN$,1 ,1) ) = 

255 THEN 9110 
9080 : EN$(N)=EN$ 
9090 : N=N+1 
9100 : NEXT I f J f A 
9110 N=N-1: RETURN 



Program Listing 3. Specs 

6000 REM CHANGE FILE SPECS 
6010 CLEAR 3000 
6020 DIM EN$(68) 
6030 CLS 

6040 PRINT@200 , "CHANGE FILE SPEC 
S" 

6050 PRINT@261 , "PRESS <ENTER> TO 
START" 

6060 IF INKEY$OCHR$(13) THEN 
6060 

6070 CLS:GOSUB 9000 

6080 INPUT" ENTER NAME OF FILE" ; F 

1$ 
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6090 I=INSTR(1,FI$,"/") 

6100 IF 1=0 THEN CLS: GOTO 6080 

6110 IF LEN(FI$)-I<>3 THEN CLS: 

GOTO 6080 
6120 SR$=LEFT$(FI$, 1-1 ) +STRING$ { 
8-LEN ( LEFT$ ( FI $ , 1-1 ) ) , 3 2) +RIGHT$ 
(FI$,3) 

6130 FOR 1=1 TO N:EN$=LEFT$(EN${ 
I)rH):IF SR$=EN$ THEN 6160 ELSE 
NEXT I 

6140 PRINT "FILE NOT FOUND" 
6150 FOR 1=1 TO 600:NEXT I:CLS: 

GOTO 6080 
6160 PRINT @224,""; 
6170 PRINT LEFT$(EN$(I) f 8) ;TAB(1 

0) ;MID$(EN$(I) ,9,3) ; 

6180 F$(0)="BASC":F$(1)="DATA" 
6190 F$(2)="MACH":F$(3)="TEXT" 
6200 PRINT TAB(15) ;F$(ASC(MID$(E 
N$(I),12,1))); 

6210 FL=ASC(MID$(EN$(I) ,13,1) ) 
6220 IF FL=0 THEN PRINT TAB(20); 
"BIN"; ELSE PRINT TAB ( 20) ; "ASC" ; 
6230 PRINT TAB(23) ; ASC (MID$ (EN$ ( 

1) ,14,1)); 

6240 PRINT TAB(26) ; ASC (MID$ (EN$ ( 
I), 16,1)); 

6250 PRINT @2 56 , " " ; : LINE INPUTNA$ 
6260 IF LEN (NA$) >8 THEN 6250 
6270 PRINT@266 , " " ; : LINE INPUTEX$ 
6280 IF LEN (EX$)>3 THEN 6270 
6290 PRINT@271 , " " ; : LINE INPUTTY$ 
6300 IF LEN(TY$)<>4 THEN 6290 
6310 PRINT@276 , " " ; : LINE INPUTFL$ 
6320 IF LEN(FL$)<>3 THEN 6310 
6330 PRINT@280 , " " ; : LINE INPUTGR$ 
6340 IF LEN(GR$)>2 THEN 6330 
6350 PRINT@284 , " " ; : LINE INPUTBT$ 
6360 IF LEN(BT$)>3 THEN 6350 
6370 FOR A=0 TO 3: IF F$(A)=TY$ T 
HEN 6390 ELSE NEXT A 
6380 GOTO 6160 

6390 EN$=NA$+STRING$( 8-LEN ( NA$) , 
32) +EX $+STRING $ ( 3-LEN ( EX $ ) , 3 2 ) +C 
HR$ ( A) 

6400 IF FL$="BIN" THEN A=0 ELSE 
IF FL$="ASC" THEN A=255 ELSE GOT 
0 6160 

6410 EN$=EN$+CHR$(A) 

6420 GR=VAL(GR$) :IF GR<0 OR GR>6 

7 THEN 6160 

6430 EN$=EN$+CHR$ (GR) 

6440 BT=VAL(BT$) : IF BT<0 OR BT>2 

56 THEN 6170 

6450 EN$=EN$+CHR$(0)+CHR$(BT) 
6460 EN$(I)=EN$+STRING$(16,0) 
6470 GOSUB 8000 

6480 PRINT: PRINT"PRESS <ENTER> T 
0 RETURN TO MENU" 
6490 IF INKEY$OCHR$(13) THEN 
6490 

6500 RUN" SNOOPER" 
8000 L=0 

8010 : A$(0)="":A$(1)="" 

8020 : FOR J=0 TO l:FOR K=0 

TO 3:C=K+(J*4)+(L*8)+1:A$(J)=A$( 

J) +EN$(C) : NEXT K,J 

8030 I=L 

8040 IF LEN(A$(0) )<128 THEN A$(0 
) =A$(0) +CHR$(255) +STRING$( 127-LE 
N(A$(0)) ,0) 

8050 IF LEN(A$(1) )<128 THEN A$(l 
) =A$ ( 1) +CHR$ ( 255) +STRING$ ( 127-LE 
N(A$(1)) ,0) 

8060 DSKO$ 0,17,L+3,A$(0) ,A$(1) 
8070 L=I 

8080 L=L+1:IF L<=INT(N/8) THEN 
8010 



8090 A$(0)=CHR$(255)+STRING$(127 
,0) 

8100 A$(1)=STRING$(128,0) 
8110 DSKO$ 0,17,L+3,A$(0) ,A$(1) 
8120 RETURN 
9000 N=l 

9010 FOR A=3 TO 11 

9020 DSKI$ 0,17,A,A$(0) ,A$(1) 

9030 FOR J=0 TO 1 

9040 : FOR 1=0 TO 96 STEP 32 

9050 : EN$=MID$(A$(J) ,1+1,32) 

9060 : IF ASC(MID$(EN$,1,1) )= 

0 THEN 9100 
9070 : IF ASC (MID$ (EN$,1 ,1) ) = 

255 THEN 9110 
9080 : EN$(N)=EN$ 
9090 : N=N+1 
9100 : NEXT I, J, A 
9110 N=N-1: RETURN 



Program Listing 4. Restore 



7000 REM RESTORE OLD FILE NAMES 
7010 CLEAR 3000 
7020 DIM EN$(68) 
7030 CLS 

7040 PRINT §204 , "RESTORER" 

7050 PRINT @261 , "PRESS <ENTER> T 

0 START" 

7060 IF INKEY$OCHR$(13) THEN 

7060 
7070 GOSUB 9000 
70 90 FOR 1=1 TO N 

7100 : IF LEFT$ (EN$ ( I) ,1) =CHR$ ( 
0) THEN MID$ ( EN$ ( I) ,1 ,1) ="r " 
7110 NEXT I 
7120 GOSUB 8000 

7130 PRINT:PRINT"PRESS ENTER TO 
RETURN TO MENU" 
7140 IF INKEY$OCHR$(13) THEN 
7140 

7150 RUN" SNOOPER" 
8000 L=0 

8010 : A$(0)="":A$(1)="" 

8020 : FOR J=0 TO l:FOR K=0 

TO 3:C=K+(J*4)+(L*8)+1:A$(J)=A$( 

J) +EN$(C) : NEXT K, J 

8030 I=L 

8040 IF LEN(A$(0) )<128 THEN A$ ( 0 
) =A$ ( 0) +CHR$ ( 255) +STRING$ ( 127-LE 
N(A$(0) ) ,0) 

8050 IF LEN(A$(1) )<128 THEN A$(l 
)=A$(1) +CHR$(255) +STRING$( 127-LE 
N(A$(1)) ,0) 

8060 DSKO$ 0,17,L+3,A$(0) ,A$(1) 
8070 L=I 

80 80 L=L+1:IF L<=INT(N/8) THEN 
8010 

8090 A$(0)=CHR$(255)+STRING$(127 
,0) 

8100 A$(1)=STRING$(128,0) 
8110 DSKO$ 0,17,L+3,A$(0) ,A$(1) 
8120 RETURN 
9000 N=l 

9010 FOR A=3 TO 11 

9020 DSKI$ 0,17,A,A$(0) ,A$(1) 

9030 FOR J=0 TO 1 

9040 : FOR 1=0 TO 96 STEP 32 

9050 : EN$=MID$(A$(J) ,1+1,32) 

9070 : IF ASC (MID$ ( EN$ ,1 ,1) ) = 

255 THEN 9110 
90 80 : EN$(N)=EN$ 
90 90 : N=N+1 
9100 : NEXT I, J, A 
9110 N=N-1: RETURN END 
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FANTASTIC NEW GRAPHICS PROGRAMS! 




RAINBOW 

ceATgwTK* pixGEN (by Spectacular Software) 

PIXGEN is a revolutionary new idea in graphics creation for your Tandy 
Color Computer! Unlike most graphics utilities which let you draw a picture, 
and then save the screen as binary data, PIXGEN lets you design pictures 
and then AUTOMATICALLY compiles the machine language source code 
needed to redraw your picture! 

But the best part is that the graphics subroutines in PIXGEN are SUPER 
FAST. Lines can be drawn 1 0 times faster than with ECB, and painting in 
32768 DIFFERENT colors and patterns can be done as much as 1 50 times 
faster than Basic's PAINT routine! 

Drawing with PIXGEN is a snap! One joystick controls the position of 
the cursor on your screen, and the joystick button performs the operation 
you have selected, whether it be drawing CIRCLES, LINES or HI-SPEED 
PAINTING. PIXGEN also features an UNDO command! Even a novice can 
have PIXGEN working in minutes! 

DESIGN YOUR OWN GRAPHIC ADVENTURES!!! PIXGEN is a tried 
and true method of obtaining hi-speed detailed graphics while using as 
little as 400 or 500 bytes of memory per picture! 

Once you've drawn your pictures, they are compiled into a binary program 
that can then be moved anywhere in memory! 

Requires a 64K Coco or Coco2 with ECB or Disk Basic, and joysticks. 
• TAPE....$27.95 DISK....$29.95 




csnrmunoN SPACEWEB (by Spectacular Software) 

SPACEWEB is a 32 K arcade/strategy game forthe Coco that will blow 
you away! The time is the 23rd century, and space travel is an everyday 
occurence. But during travel through hyper-space, a pilot constantly 
encounters cubes of energy which block his path, and entrap him. These 
"Spacewebs" delay the trip through hyperspace, and may prove fatal! 
Bounce your ship from side to side of the 30 cube, changing the colors 
each time you bounce, until all of the sides are the same color. But beware! 
Each level of play has it's own time limit! Only the quick and skillful can 
escape! 

SPACEWEB features 1 or 2 player action, hi-res 3D graphics, sound 
effects, multiple skill levels, and Top Ten High Score board. 
Requires a 32 K Coco or Coco2 and joysticks. 

TAPE....$29.95 DISK....$29.95 



PAINT PATCH 

The ultimate texture painting utility for the Basic programmer! Paint 
with a modified Basic Paint command that works exactly the way the 
normal Paint command works, in all of those colors you've seen in graphics 
adventures! 

Work in ANY PMODE, with ANY SCREEN! With over 32,00u different 
colors and textures to choose from, you can paint pictures to suit your 
wildest dreams. 

PAINT PATCH is a Basic subroutine which toggles your 64K Coco into 
all ram mode, then fixes the Paint command to allow it to paint in textures. 
Then you use PAINT as you normally would, but select the paint color with 2 
color codes rather than 1. A list of popular colors and textures and their 
color numbers is included. 

Give your games and graphic adventures the PROFESSIONAL look, 
use PAINT PATCH! 

Requires 64K Extended or Disk Basic. 

TAPE....$14.95 DISK....S 14.95 

GRAFIKA 

GRAFIKA is the drawing utility you've been waiting for! Stop wishing 
you had3 hands! With GRAFIKA, you useonlyonejoystickatatime.andall 
features provide you with prompts, to let you know what your options 
are. 

Features include Texture Painting (as provided by Paint Patch), full 
screen scrolling, (OMNI-SCROLL), Line, Circle, Box and Pixel drawing, 
Color Negate, Color Manipulation, and Color Exchange, plus an automatic 
buffer that holds a copy of the screen in memory at all times. Then, if that 
last paint "leaked out", the touch of a key will restore the entire screen to 
it's previous condition! 

Load or Save to DOS or Graphicom disks, or transfer pictures between 
the two. GRAFIKA is so easy to use, you may never have to read the 
instructions for it. 

Available for 32K or 64K Coco or Coco2 with Disk Basic only. 
DISK 0NLY....S29.95 

A.S.C. CORPORATION 

3529 Genessee Road 
LaPeer, Michigan 48446 
Telephone: (313) 664-3722 
GRAPHICOM is a trademark of Cheshire Cat Computer Creations. 
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NEW 



DISK 
DRIVES 



STARTING AT 

$ 89, 



95 




New Low Price! 




40TKS 6Ms 
Double Sided 
Double Density 



40 or 80 Tracks 
1/2 Hght.Teac/ Panasonic 



TANDON MPI TEAC 



WITH CASE & 
POWER SUPPLY 

$129.95 




Speed 6 ms tk to tk and up 
Capacity 250k unformatted 
Tracks 40 

Warranty now 1 YEAR 
We carry only the finest quality disk drives *no seconds* no surplus 

SATISFACTION GUARANTEED!! all drives fully tested&warranteed 

Complete Disk Drive with Power Supply&Case t??? $129.95 

Two Drives in Dual Cases Power Supply tw - ££7936 CALL 

. - _ Tracks 40 

1/2 ht double sided double density Disk Drives (Panasonic/Teac)?. $iis.95 
1/2ht double sided double density Disk Drive with ps&case].... J ^$49§^5 CALL 
tow to use your new drive system on audio cassette 

Single ps&case $44.95 Dual 1/2htps&case $54.95 Dual ps& case.. CaH 

Color Computer Controller Cj&MI 

DRIVE 0 FOR RADIO SHACK COLOR COMPUTER 

TANDON, MPI OR TEAC DRIVE (SINGLE SIDED 40 TRACKS SPEED 5 MS TRK TO TRK& UP) 
POWER SUPPLY and CASE, TWO DRIVE CABLE WITH ALL GOLD CONNECTORS . 

& J&M CONTROLLER, MANUAL and DOCUMENTATION $&&9S $SALE! 

» .DRIVE 6 FOR RADIO SHACK COLOR COMPUTER 

K Y PANASONIC 1/2 HEIGHT DOUBLE SIDED DOUBLE DENSITY DRIVE 500K unformatted 





$129.95 



* ^S> S POWER SUPPLYand CASE, 2 DRIVE CABLE WITH ALL GOLD CONNECTORS 

J&M CONTROLLER, MANUAL and DOCUMENTATION $£7££5^ SALE! 



TAKE ADDED SAVINGS ON TWO DRIVE SYSTEMS 

DISKETTES with free library case. 
Unadvertised Specials 

Dr ives c leaned , a I igned & tested , 

TECHNICAL STAFF ON DUTY, PLEASE CALL FOR ASSISTANCE. 




6§) CONTROl DATA J^Qg 

$caii 

$29.95 



CALL US TODAY!! 
1 ORDER TOLL FREE 



(617)278-6555 

1-800-635-0300 



* DEALER INQUIRIES INVITED. 

(617)278-6555 

TRUE DATA PRODUCTS 



9. S. Main 

Uxbridge, MA 01 569 
(617)278-6555 



We welcome 
• Visa/Master Charge SB? 



HOURS MON-SAT 9-6 (EST) 



• Checks(allow 2 weeks for clearing) 

• CO.D. Add $2.00 
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New Hard Drives 



COMPLETE SYSTEM JUST PLUG IN 

Call For 
BEST PRICE 



^ QUALITY 
VIDEO MONITORS 




Starting at §7Q m 

MONOCHROME 
COLOR MONITORS 



95 




Warranty - One Full Year 

5 to 20 Megabyte, ready to run on the TRS 
80 Model I/III/IV/4P, color computer 

39 95 



VIDEO DRIVER 

ENABLES YOUR COCO TO OPERATE WITH A 
VIDEO MONITOR INSTEAD OF A TELEVISION! 



SCREEN DUMP PROGRAM 



64K UPGRADES 




PRINTER CABLES AND 
INTERFACES AVAILABLE 
Call for current pricing 



PRINTERS 



* 100 - 120 - 160 CPS 

* Bidirectional Logic Seeking 

* Friction apd Tractor 

* 9X9 Dot Matrix 

* True Decenders 

* High Res-Bit Image Block Graphics 
GEMINI 10X (9 Inch Carriage, 120cps) Friction and Tractor $CALL 
GEMINI 15X (15 Inch Carriage. 120cps) Friction and Tractor. $CALL 
DELTA 10 (10 Inch Carriage. 160cps) Friction and Tractor $CALL 
POWER TYPE Letter quality 



Super Script-Subscript 
Underlining 

Backspacing Doublestnke 
5, 6. 8 1/2. 10. 12 and 17 Pitch 
Programmable Line Spacing 
SIX (6) MONTH WARRANTY 



The best screen dump program for the Epson & Gemini 
printers ever!! Have the option of standard images 
or reverse w/regular or double sized pictures $-| Q95 

sp-3 interface for Color Computer 

■ 300-19,200 BAUD rates 

■ External to printer — No AC Plugs 

■ Built in modem /printer switch — no need for 
Y-cables or plugging/ unplugging cables 



Only: 





$239 



SG-10 



COMPLETE SYSTEM 
Nothing more to buy! 

Dealer inquiries invifed 




now 
with 
screen 
dump 




TRUE DATA PRODUCTS 



9 S. Main 

Uxbridge, MA 01569 



CALL US TODAY!! 
& ORDER TOLL FREE 



(617) 278-6555 

1-800-635-0300 
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Product News 



by J. Scot Finnie 

Try-O-Tax, Banker, Xpndr2, Low Cost 
Video Digitizer, Wizard's Castle, Fighter Pilot, 
Infocom Update, and More 



Information related in the Prod- 
uct News section is supplied by 
manufacturers. HOT CoCo has 
not tested or reviewed the prod- 
ucts discussed here and cannot 
guarantee manufacturers' claims. 



What better program with 
which to start off the new 
year than Try-O-Tax from Try- 
O-Byte? That's right, it's tax time 
again. Taxes are one of those cou- 
ple of things you can always be 
sure of. Try-O-Tax calculates 
schedules A, B, C, D, E, F, G, SE, 
and W along with forms 1040, 
2106, and 2441. It comes on cas- 
sette or disk (specify your ma- 
chine's memory in your order) 
and sells for $29.95 plus $3 for 
shipping. 

Heavy Hardware 

J & R Electronics has an- 
nounced a 256K modification 
board called Banker. The mem- 
ory expansion unit is designed to 
fit into any Color Computer with 
socketed SAM (synchronous ad- 
dress multiplexer) and memory 
chips. (The company suggests 
you write to them if you have sol- 
dered chips.) Banker works with 
all Basic versions of the Color 
Computer, JDOS, ADOS, and 
cassette or disk systems. It can 
be used to set up four 32K banks 
from $8000-$FEFF (map type 
0), eight 32K banks from $0000- 
$7FFF (page bit in SAM), or four 
64K banks from $0000-$FEFF 
(map type 1). In addition, the 
VDG (video-display generator) 
bank is programmable sepa- 
rately from the CPU (central-pro- 
cessing unit) memory bank. 
Banker is compatible with hard- 
ware devices, such as PBJ Inc.'s 
Word-Pak. The package consists 
of hardware and software and 
comes complete for $99.95. The 
company also offers kit versions 
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of the product. Contact J & R for 
more information. 

Kinney Software has released 
the Low Cost Video Digitizer, 

which includes machine-lan- 
guage software, plans, documen- 
tation, and a blank printed- 
circuit board. You supply the 
components (which are available 
from Radio Shack for about $20) 
and an evening's time for con- 
struction. The product uses any 
composite NTSC (National Tele- 
vision Standard Convention) 
video-input source, such as 
video-cassette recorder, video- 
disk player, or video camera. The 
digitizer interfaces with and is 
powered completely by the joy- 
stick and cassette I/O (input/out- 
put) ports, leaving your serial 
and ROM-pack ports open for 
other uses. The Low Cost Video 
Digitizer is also very fast. The 
price of the software (which re- 
quires a 16K CoCo) and blank pc 
board is $39.95 plus $2 for ship- 
ping. Specify computer model 
and cassette or disk when order- 
ing. For more information, send 
the company a self-addressed, 
stamped envelope. 

Gamers' Corner 

Spectral Associates has a new 
graphic-adventure game called 
Wizard's Castle that offers mul- 
tiple skill levels to provide a leg 
up for beginning adventurers. 
The game has more than 60 
high-resolution animated 
screens. Its real-time action 
keeps the game characters inter- 
acting even after you make a 
move. Wizard's Castle requires 
64K, Disk Extended Color Basic, 
and one disk drive. It sells for 
$19.95. Spectral Associates also 
makes a clue sheet available to 
those who need assistance in 
solving the game. 

If you are looking for some 
good bets on games, you might 
consider two other Spectral As- 
sociates products, too. Space 



Wrek is a challenging three-di- 
mensional space-arcade game 
that requires strategy and quick 
decision making and fast finger 
work. Module Man is an intri- 
guing arcade adventure that has 
unique joystick controls, bright 
colors, and unusual creature 
movements. The game's 25 
screens and subtle nuances 
make it one that is sure to keep 
you challenged for a long time. 
Space Wrek and Module Man re- 
quire 32K and a joystick. They 
sell for $17.95 on cassette and 
$20.95 on disk. 




The Programmers' Handbook 
from Cardinal Point Inc. 

Every now and then an arcade 
game comes along that is so hard 
to turn off that editors stay extra 
hours into the night trying to set 
the high score. Fighter Pilot 
from Saguaro Software is addic- 
tive. It's a good thing the game 
has a pause feature or eating 
might become a problem. The 
object is to shoot down as many 
other planes that come on your 
screen as possible— a simple ar- 
cade-game theme. But this is not 
a simple game, and there is a lot 
of seat-of-the-pants maneuvering 
required to keep from getting 
blown out of the sky. Fighter Pilot 
requires 32K and sells for $24.95 
on cassette and $29.95 on disk. 

Infocom update: Last month 
Product News reported that the 
Infocom text-adventure games 
were finally being made available 



to the CoCo community. But the 
question was, which games? 
Well, here's the scoop. The com- 
pany is going to start by releasing 
Zork I, Enchanter, Planetfall, 
The Witness, Infidel, The 
Hitchhiker's Guide to the Gal- 
axy, and their latest, Wishbring- 
er. They should be available by 
the time this issue is in print. 
Other titles might be released 
later. Contact the company for 
more information. 

Last But Not Least 

Ever wish you could speak 
your printer's language? The 
Programmers' Handbook of 
Computer Printer Commands 

might be just the reference you 
need. It is a compilation of printer 
control codes for daisy-wheel and 
dot-matrix printers manufac- 
tured during or before 1984. The 
Handbook lists more than 170 
printer models by 43 manufac- 
turers, including Epson, Juki, 
NEC, Okidata, Star Micronics, 
and Tandy Corp. The book sells 
for $37.95 plus $2 for shipping. 
Contact Cardinal Point Inc. for 
more information. 

Robotic Microsystems offers a 
line of expansion-board devices 
for hacking into your CoCo. The 
company's two newest products 
are Xpndr2 and Super Guide. 
The Xpndr2 prototype card picks 
up where Xpndrl left off by offer- 
ing a ROM-pack connector with 
specially tooled gold-plated 
grounding spring clips and gold- 
plated wire-wrap pins. Xpndr2 
also offers a lot more room for 
connecting integrated-circuit 




The Xpndr2 from Robotic Micro- 
systems 




chips; it offers 24 square inches 
for add-on hardware and allows 
you to derive the full on-line 
power from any software devel- 
opment tools or languages avail- 
able for the CoCo. Herb Hart of 
Robotic Microsystems empha- 
sizes quality: "Our concept is to 
provide the top end in expansion 
hardware." Super Guide is an in- 
jection-molded card holder that 
fits into the CoCo's ROM-pack 
port serving as both guide and 
brace. It sells for $3.95. Xpndr2 
sells for $39.95. 

Real Computers and Intelli- 
gence along with distributor The 
Zellerbach Group have recently 
released a new line of printed-cir- 
cuit boards for the 6809E micro- 
processor used in the CoCo. The 
boards conform to the size of the 
Color Computer's cartridge slot 
and are 8 inches long. They are 
made of laminated epoxy-glass 
and feature gold-plated card-edge 
connector contacts. The Exten- 
der board is 4.25 inches wide and 
has a 40-pin connector. The Pro- 
totype boards are 3.875 inches 
wide, come with 40- and 34-pin 



connectors, and offer .042-inch 
plated through-holes with pads. 
At press time, these products 
were expected to sell for $20 each. 
Contact Zellerbach for more infor- 
mation. 

Gregory Ludwig of Viking Inc. 

has contacted HOT CoCo to point 
out that we goofed when we ac- 
cidentally missed his company's 
offerings in our round-up of edu- 
cational software in the October 
1985 issue. Viking offers several 
English spelling, usage, and 
grammar titles for grade-school 
students in addition to math, 
electronics, geography, and ap- 
plications programs. Viking soft- 
ware requires 16K for the most 
part and comes on cassette or 
disk for $19.95. 

The CoCo Freeware Clearing- 
house has changed its name and 
moved to a new location. The com- 
pany's new name is US* Ware!, 
and their new address is P.O. Box 
58 1 1 , Lompoc, CA 93436. For 
more information, send US* Ware! 
a self-addressed, stamped enve- 
lope and specify user's or author's 
Info-Pak.B 



List of Vendors 



Cardinal Point Inc. 
P.O. Box 596 
Ellettsville, IN 47429 
812-876-7811 

Infocom 
P.O. Box 478 
Cresskill, NJ 07626 
800-262-6868 

J & R Electronics 
P.O. Box 2572 
Columbia, MD 21045 
301-987-0578 
301-788-6540 

Kinney Software 
Dept. 4 

121 N. Hampton Road 
Donnelsville, OH 45319 

Robotic Microsystems 
Box 30807 
Seattle, WA 98103 
206-782-6809 

Saguaro Software 
P.O. Box 1864 
Telluride, CO 81435 
303-728-4937 




Spectral Associates 
3418 South 90th St. 
Tacoma, WA 98409 
206-581-6938 

Try-O-Byte 
1008 Alton Circle 
Florence, SC 29501 
803-662-9500 

US*Warel 
P.O. Box 5811 
Lompoc, CA 93436 

Viking Inc. 

910 Soo Blvd. 

Rice Lake, WI 54868 

715-234-2680 



The Zellerbach Group 
Unit 216 
1335 Pacific Ave. 
San Francisco, CA 94109 
415-673-3485 




f 



HARDWARE SPECIALS 

Tandy 600 CALL 
Tandy 3000 CALL 

25- 1000 Tandy 1000 2-drive CALL 
Tandy 1000 10MB Hd CALL 

26- 3802 Model 100 24K $ 449.95 
26-3860 Model 200 $ 849.95 
26-3816P8K Upgrade Model 100 $ 55.95 
26-3127 64K Extended Coco 2 $ 149.95 
26-3129 Coco Drive $ 189.95 
26-1161 Coco Drivel $ 179.95 
26-3124 Multi-Pac Interface $ 89.95 
Video Monitor Adapters $ 34.95 
BotekSer/ Par Interface $ 69.95 
NAP Video Monitor (Grn Amber) $ 109.95 
Extended Basic w/bk $ 39.95 
64K (DEI) Memory Upg $ 49.95 
HJL Keyboard (D.E.F.2) $ 79.95 
26-1276 DMP-105 Printer 80 cps CALL 
26-1278 DWP 220 Printer CALL 



MSI SOFTWARE 

MSI DISKUTIL NEW $ 19.95 

COLOR FINANCE II NEW $ 69.95 

MSI NAMEFILE $ 24.95 

MSI CALENDAR NEW $ 19.95 

MSI COLOR PAYROLL NEW $ 99.95 

COLOR FINANCE 4 $ 69.95 



ACCESSORIES 



Volksmodem 1200 
RS D.C Modem IB 
Novation J-Cat Modem 
USR Password 300 
Hayes SM 300 Modem 
USR Password 1200 
USR Password 2400 
CoCo Switcher 
Elephant Disks ssdd 
Mach II Joystick 
26-3030 0S-9 (64k) 
Basic-09 (req. 0S-9) 
"C" Compiler (0S-9) 
FHLO-Pak (req. OS-9) 
Eite Word 
Elite Calc 
Color Term Plus 
Deft Pascal 

26-3012 Deluxe Joystick 
Tandy 1000 options 



$299.95 
$ 89.95 
$129.95 
$179.95 
$239.95 
$399.95 
$599.95 
$ 39.95 
$ 18.95 
$ 39.95 
$ 64.95 (disk) 
$ 87.95 (disk) 
$ 87.95 (disk) 
$ 34.95 (disk) 
$ 59.95 (d&c) 
$ 59.95 (d&c) 
$ 29.95 (cass) 
$ 79.95 
$ 34.95 
CALL 



NEW! Dual Double Sides Drives including 
case, power supply & cable $375.95 

NEW! 26-3128 64K 

Direct Video CoCo2 $219.95 



TRS-80 Trademark Tandy Corporation. 
Prices subject to change without notice 
Write for our FREE newsletter. 





Call for prices and availability of 
your favorite software and 
hardware. All advertised items 
subject to availability. Prices do 
not include shipping and handling. All 
the above units are covered by our 
120 day carry-in warranty. 

DELKER ELECTRONICS, INC. 

P.O. Box 897 408 C Nissan Blvd. 
Smyrna, TN 37167 



■ 800-251-5008 


■ 615-459-2636 




(Tennessee) 


■ 800-545-2502 


■ 615-254-0088 


(Tennessee) 


(Nashville) 



Visa, Mastercard and American Express 



Tell them "I saw it in HOT CoCo. 5 
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Assembly 101 

by Victor and James Perotti 



The Joystick: 
Analog-to-Digital Converter 



To follow this column, you will need an edi- 
tor/assembler. The author's use the Micro 
Works' MacroSOC disk assembler, and 
changes are given for Radio Shack's ED- 
TASM + . Other assemblers will also work, but 
the programs may require some additional 
modification. The documentation that comes 
with your software should provide the com- 
mands you need. 



Technically, your CoCo's joystick ports 
are analog-to-digital converters. They 
convert the joystick's analog motion (up, 
down, left, right) to horizontal and vertical 
numbers from 0 to 63. There are four distinct 
values available, since there are two joy- 
sticks; thus, to make something happen on 
the screen, the ports must read a vertical 
value and a horizontal value and convert 
them to a screen address. 

The Color Computer contains a subroutine 
that reads the joysticks and converts their 
motion to the 0-63 values. It's a little com- 
plicated, but the location (pointer) that stores 
the subroutine's address is $A00A. Call this 
ROM routine JOYSTK. $A00A contains 
JOYSTK's address, but it is not the start of 
the routine. It's an example of indirect ad- 
dressing—the 6809, as you will see, deals ef- 
fectively with this approach. 

The instruction JSR [$A00A] jumps to the 
ROM routine to which $A00A points. The 
6809 interprets that to mean that it should 
start at a subroutine beginning at the ad- 
dress found in the 2 bytes of $A00A and 
$A00B. 

Some of you wrote to us about using 
$A1B1 for POLCAT instead of using indirect 
addressing for $A000. Since $A000 contains 
$A1 and $A001 contains $B1 (in ROM ver- 
sion 1 .0), JSR [$A0OO] is exactly the same as 
JSR $A1B1. The former is an example of di- 
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rect addressing, while the latter shows indi- 
rect addressing. It appears that Microsoft, 
which wrote the ROM routine, plans to use 
$A000 for POLCAT's address and $A00A for 
JOYSTK. Therefore, the indirect addressing 
approach is not dependent on any specific 
version of the ROM. 

The JOYSTK routine reads the stick's hori- 
zontal and vertical positions and stores the 
values in RAM at $15A and $15B, respec- 
tively. If the Color Computer had a screen dis- 
play of 64 characters per line and 64 lines per 
screen, everything would be easy: The 0-63 
values could be used directly to access any 
position on the screen. Unfortunately, the 
CoCo has a 32-character by 16-line screen. 

As you may remember from past lessons, 
the screen displays the contents of a linear 
sequence of memory beginning at $400 and 
ending at $5FF. Think of screen memory not 
as a matrix of rows and columns, but as a 
linear sequence. To move down one row, the 
cursor location has to be incremented by 32. 
The same is true for the Program Listing, 
JOYSTICK. It isn't enough to convert the 0- 
63 values to 1- 16 values for vertical position- 
ing. You must also multiply the 1-16 row val- 
ues by 32 to get to the right byte of RAM 
screen memory. Although the 6809 has a 
multiply (MUL) instruction microcoded into 
its command set, it has no divide instruction. 
So it's time for some binary math. 

The Binary Blues 

The decimal number 1 1 consists of ones in 
two positions: The one on the right counts 
for its own value, while the one on the left, 
the one in the 10's position, is worth 10 times 
its value. In base- 16 numbers, the number in 
the second position is worth 16 times its ex- 
pressed value. In binary, the number in the 
second position is worth two times its value; 
hence, binary 11 can be expressed in true 
decimal as (1x2) + (lxl) = 3. 

In binary 101, the leftmost one is worth four 
times its value; therefore, binary 101 can be 
expressed in decimal as (1x4) + (0x2) 
+ (lxl) = 5. Binary 10101 100 can become 



(1x128)+ (0x64)+ (1x32)+ (0x16)+ (1x8) 
+ (1x4) + (0x2) + (0x1) = 172. If you've been 
paying attention, you should be with us so far. 

Since each digit of an 8-bit binary number 
represents a power of two, shifting a binary 
number to the left multiplies the number by 
two. Therefore, shifting a digit to the right 
divides it by two. For example, binary 1010 
equals 10 in decimal (a one in the times-eight 
position and a one in the times-two position, 
8 + 2 = 10). Shift the number to the left by 
adding a zero on the right, making it 10100. 
Now there is a one in the times-sixteen posi- 
tion and a one in the times-four position 
(16 + 4 = 20). 

In the same way, if you shift a binary num- 
ber to the right, you divide it. Shift 10100 to 
the right, and it becomes 1010 again, or dec- 
imal 10. shift it right once more and it be- 
comes 101, or decimal 5. Although the 6809 
lacks a division instruction, it does have ASL 
(Arithmetic Shift Left) and ASR (Arithmetic 
Shift Right), which work with the A and B 
accumulators. To use the A register to divide 
the vertical value, $15B, by four, you must 
shift $15B two places to the right, which will 
convert the 0-63 value to a 1-16 value. The 
operation requires two ASRAs, as in the fol- 
lowing example: 

CALC LDA $01 5B 
ASRA 
ASRA 

How many times would you have to shift 
the A register left to multiply it by 32 deci- 
mal? Too many— the MUL instruction is sim- 
pler and faster. MUL requires that you have 
the multiplier in A and the multiplicand in B, 
and it puts the product into the D register. 

Converting to a Screen Address 

There are lots of ways to convert the joy- 
stick values to a screen address; the Program 
Listing, JOYSTICK, is a simple method. It 
multiplies the row value (1-16) by 32 and 
adds the column value (1-32) to it. Then it 
adds the screen address' value ($0400) to the 



sum. In other words, a vertical value (from 
$15B) is divided by four, multiplied by 32, 
and incremented by $0400. A horizontal 
value (from $15A) is divided by two and 
added to the sum of the vertical and $0400. 

The shifts require the A or B registers. It was 
easy to add $0400 to the D register and use 
ABX to add the horizontal value in B to the 
address in X. The screen address ends up in 
X; it cannot go off the top of the screen be- 
cause the constant $400 is always added, but 
X can exceed $5FF since ((63/4*32) + $0400) 
+ (63/2) is a strange hodgepodge of decimal 
and hex that might be greater than $5FF. 

The Fire Button 

When you press the joystick's fire button, 
you change a value in one of the CoCo's joy- 
stick ports. The buttons for both the right 
and left joystick are handled at address 
$FF00. A binary peek at this location would 
show it with 11111111 (255) or 01111111 
(127). Pressing the button on the right joy- 
stick changes the rightmost one in 1 1 1 1 1 1 1 1 
to zero, leaving 11111110 (254), or the right- 
most one in 01111111 to 01111110 (126). 

Program Listing. JOYSTICK 

********************* 

* JOYSTICK PROGRAM 



But how can you check that rightmost bit to 
see if it contains a zero? 

As you should remember from your les- 
sons in logic, if this and that are true, then 
the entire proposition is true. On the other 
hand, if either this or that is false, then the 
whole thing is false. Similarly, ANDing two 
binary numbers compares the zeros and 
ones in each position. When each of the two 
numbers contain ones in the same position, 
the result is true, yielding one. If either or 
both digits are zero, the result of ANDing is 
false, yielding a zero. The AND works only 
when two ones line up. If you AND the value 
in $FF00 against #00000001 (lj, the zeros 
are ignored, and the result is true if, and only 
if, the rightmost digit of $FF00 is a one. 

The ANDA #1 instruction would alter the 
contents of A and require a CMPA line. The 
BITA #1 instruction does not attempt to 
change anything, it merely sets the bits in 
the CC register. So the BITA #1 is like a 
CMPA that deals with only specific bits. If the 
comparison is true and the CC register has a 
one, the BEQ DONE is executed. 

Pressing the left joystick button, which the 
program does not cover, produces either 



0001 
0002 


AOOA 
A928 




JOYSTK 
CLS 


EQU 
EQU 


$A00A 
$A928 


0003 


0E00 


BDA928 


START 


JSR 


CLS 


0004 
0005 


0E03 
0E05 


86FF 
B7FF02 


DISABL 


LDA 
STA 


#$FF 
$FF02 


0006 


0E08 


AD9FA00A 


GO 


JSR 


[JOYSTK] 



1 1 1 1 1 101 (253) or 01 1 1 1 101 (125). In effect, 
the left joystick button changes the second 
bit from the right to a zero. ANDing the con- 
tents of $FF00 against #00000010 (2) with 
BITA #2 determines whether the button has 
been pressed. 

Goodbye 

Working with binary math might cause you 
a few headaches, but, unfortunately, the CoCo 
best comprehends high-resolution and color 
graphics when you program them with binary. 
This month we messed with the keyboard/joy- 
stick input port at $FF00 and the output port at 
$FF02. The registers for using the various res- 
olution screens live at $FFC6 through $FFD3. 
Manipulating bits in those registers enables the 
color sets for each display. 

And with that, we'll take our leave. It's 
time to bring this column to a close. We hope 
you've enjoyed it and that we've given you a 
good start on the road to Assembly language. 
As for now, class dismissed. ■ 

Write to Victor and James Perotti at 163-D 
Pine Grove Heights, Athens, OH 45701 



CLEARS SCREEN 



DISABLE 
KEYBOARD 



0007 0E0C B6015B 

0008 0E0F 47 

0009 0E10 47 

0010 0E11 C620 

0011 0E13 3D 



************** 

NOW COMPUTE 
CONVERT JOYSTICK'S 
0-63 TO SCREEN ADDR 
************** 

C LDA $015B 
ASRA 
ASRA 

LDB #32 
MUL 



0012 


0E14 


C30400 




ADDD 


#$400 


START AT TOP 


0013 


0E17 


1F01 




TFR 


D,X 


STORE ADDR IN 


0014 


0E19 


F6015A 




LDB 


$015A 


LFRT POTVAL 


0015 


0E1C 


57 




ASRB 




DIVIDE BY 2 


0016 


0E1D 


3A 




ABX 




ADD TO TOTAL 


0017 


0E1E 


8C05FF 


CHECK 


CMPX 


#$05FF 


BOTTOM? 


0018 


0E21 


220D 




BHI 


OFFTOP 


IF SO, FIX 








******* 
* 


k * * * * 


**** N oW 


WRITE BLOB 


0019 


0E23 


86E5 


PUT 


LDA 


#$E5 


MAKE SHAPE 


0020 


0E25 


A784 




STA 


,x 


PUT AT TOTAL 


0021 


0E27 


B6FF00 




LDA 


$FF00 


CHECK FOR 


0022 


0E2A 


8501 




BITA 


#1 


JOYSTK BUTTON 


0023 


0E2C 


2707 




BEQ 


DONE 


IF ON, QUIT 


0024 


0E2E 


20D8 




BRA 


GO 


DO IT AGAIN 


0025 


0E30 


8E05FF 


OFFTOP 


LDX 


#$5FF 


IF < SCREEN 


0026 


0E33 


20EE 




BRA 


PUT 


PUT AT BOTTOM 


0027 


0E35 


BDA027 


DONE 


JSR 


$A027 


JUMP TO BASIC 


0028 


0E38 






END 







UPDN POTVAL 
DIVIDE BY 2 
DIVIDE BY 2 
THEN MULTIPLY 
BY SCREEN WIDTH 



NO ERRORS FOUND 

CALC 0E0C CHECK 0E1E 

DONE 0E35 GO 0E08 

PUT 0E23 START 0E00 



CLS A928 
JOYSTK AOOA 



DISABL 0E03 
OFFTOP 0E30 



AMATEUR RADIO SOFTWARE 



BMC Color Monitor 
with sound 
$225 

Video Adapter— $19.95 
w/ monitor purchase. 
Specify CoCo 1 or 2 



• • • 



RAINBOW 



THE LOG— Search by call, QTH, or date. Output log to printer or screen. 
Store up to 13K QSO's per disk. Please specify your call sign when ordering. 

16K ECB CoCo $19.95 Cass/$24.95 Disk 

MORSE CODE TEACHER — Teaches the letters and numbers and gives prac- 
tice to up to 5 wpm. 16K ECB CoCo, MC-10 w/4K . $19.95 Cass/$24.95 Disk 
MORSE CODE TUTOR— Gives code practice from 3 wpm up to 27 wpm. An 

absolute must for upgrades!!! 16K ECB CoCo $19.95 Cass/$24.95 Disk 

TEACHER/TUTOR Double pack.MK EC B CoCo . . .$34.95 Cass/$39.95 Disk 
HE ANTENNA DESIGN — Calculates dimensions of quads, dipoles. and Yagis 
from 1.8 to M) MHz. Optimized for maximum gain. Easy-to-read tabular for- 
mat. CoCo or MC-10 w/4K. TRS-80 Model 1/3/4 . . . .$14.95 Cass/$19.95 Disk 
VIDEO TESTER— Test patterns for checking registration, convergence, and 
color of a monitor or TV. I6K ECB CoCo $9.95 Cass/$I4.95 Disk 



Check or M.O. to CYNWYN. 4791 Broadway. Suite 2F. New York. New York 1 0034 • 3% shipping handling. $2 minimum. New York residents add sales tax. 
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Documenting Cassette Tapes 

It seems as if I always have an undocumented tape lurking around 
my desk. I am never quite sure what's on it, but I am afraid to erase 
it for fear of destroying valuable information. Rather than spend time 
using the SKIPF function to find out what's on a tape, I wrote a pro- 
gram that produces a printout of the contents. Tape Scan should work 
with any printer and will prove useful even if you don't own a printer. 

When you run Tape Scan, the program asks whether you want to 
produce a printout. At the prompt for the tape's title, submit any title 
you choose. To exit the program, press any key. Sometimes it takes 
time for control to return from ROM, so be patient. I used a STOP 
rather than an END statement in line 90 to allow you to pause and 
use CONT to go on. 

10 CLS: INPUT "DO YOU WANT HARDCOP 
Y ( Y/N ) ";P$:IFP$="Y"THEN INPUT "PR 
INTER READY" ;T$ : PRINT#-2 : PRINT#- 
2 

20 INPUT"PRESS <PLAY> AND ENTER" 
;T$ 

30 INPUT"WHAT ARE YOU GOING TO C 
ALL THIS TAPE " ; T$ : CLS : PRINT "TAPE 
TITLE: ";T$:IFP$="Y"THEN PRINT# 
-2 , "TAPE TITLE: " ; T$ : PRINT#-2 : PR 
INT#-2 

40 PRINT@485, "HIT ANY KEY TO STO 
P" ; :PRINT@64, " " ; 
50 EXEC42625 

60 IF PEEK(124)O0THEN90 

70 FOR X=0TO7:PRINTCHR$(PEEK(474 

+X) ) ; : NEXT : PRINT 

80 IFP$="Y"THENGOSUB110 

90 IF INKEY$<>" "THEN STOP 

100 GOTO50 

110 FORX=0TO7:PRINT#-2,CHR$(PEEK 

(474+X) ) ; : NEXT 

120 PRINT# -2 : RETURN 

Jack Ellis 
Omaha, NE 



Stop Addressing Envelopes by Hand 

How many times have you used a word processor to type several 
letters and then had to address the envelopes by hand? Have you 
wished for a simpler way to address a stack of Christmas cards or 
thank-you notes? My short address program, Address-O, will solve 
these problems. 

When you load and run the program, Address-0 prompts you for 
the size of the envelope and the mailing address. The next prompt 
instructs you to insert the envelope. The printer will type the return 
and mailing addresses and ask if you want a duplicate. Lines 210- 
230 set up the return address; type in your address, adding additional 
program lines if you need more than three lines. 

If you do not use a legal or standard business envelope, you must 
change the spacing. First, add a third option to the size menu between 
lines 130 and 140 and change line 160, adding OR S = 3. Then insert 
a variable line after line 190, assigning new variables to the tabs K, L, 
and M. I found that the best way to determine the values was to cut 
pieces of paper to the desired envelope size and assign experimental 
values until I obtained satisfactory results. 
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Although the program was written for a Star PowerType printer, it 
should run on other printers. You might have to change line 340 to 
call up the proper line spacing. Changes might also be necessary in 
lines 380 and 420, which advance the envelope. Address-0 can save 
you time and the duplicate-envelope feature will enable you to make 
self-addressed envelopes quickly and neatly. 

20 CLS8:FORX = 0 TO 31:PRINT CHR$ ( 

143 ) ; : NEXT 

30 FOR X=0 TO 127 

40 PRINTCHR$ ( 138 ) ; : NEXT 

90 FOR X=0TO127:PRINT@(352+X) ,CH 

R$(138) ; : NEXT 

100 INPUT"PRESS RETURN TO CONTIN 
UE ";Y 

110 CLS:PRINT:PRINT"ENVELOPE SIZ 
E OPTIONLIST 

120 PRINT : PRINT" (1) STANDARD 

130 PRINT" (2) LEGAL" 
140 PRINT: PRINT"SELECT ONE " 
150 S$=INKEY$:IF S$="" THEN150 
160 S=VAL(S$) :IFS=1 OR S=2THEN18 
0ELS150 

170 'ENVELOPE FORMAT 

180 IF S=1THEN K=3:L=30:M=6 

190 IF S=2 THEN K=5:L=53:M=6 

200 'RETURN ADDRESS 

210 A$="YOUR NAME " 

220 B$="YOUR STREET" 

230 C$="YOUR CITY & STATE" 

240 CLS 

250 CLS:PRINT:PRINT:PRINT"MAILIN 
G ADDRESS" :PRINT:PRINT 
260 INPUT" NAME : ";D$ 
270 INPUT" STREET /P.O.BX";E$ 
280 INPUT"CITY ";F$ 
290 G$=", " 

300 INPUT" STATE ";H$ 

310 INPUT"ZIP CODE ";I$ 

320 CLS7:PRINT@233, "INSERT ENVEL 

OPE" ; : LINEINPUT Y$ 

330 PRINT#-2,CHR$(27) ;CHR$(49) 

340 PRINT#-2, TAB ( K ) ; : PRINT#-2 , A 

$ 

350 PRINT#-2, TAB ( K ) ; : PRINT#-2 , B 
$ 

360 PRINT#-2, TAB(K) ; :PRINT#-2 f C 
$ 

370 FOR X=l TO M : PRINT# -2 , CHR$ ( 1 
0) ; : NEXT 

380 PRINT#-2,CHR$(13) 

390 PRINT#-2, TAB(L) ; :PRINT#-2,D 

$ 

400 PRINT#-2, TAB(L) ; :PRINT#-2,E 
$ 

410 PRINT#-2,TAB(L) ; :PRINT#-2,F$ 
+G$+H$;G$;I$ 

420 FOR X=1TOM:PRINT#-2,CHR$(10) 
; : NEXT 

430 CLS:PRINT:PRINT"DO YOU WISH 

A DUPLICATE Y/N " 

440 N$=INKEY$:IF N$=""THEN440 

450 IF N$="Y"THEN320 

460 GOTO250 

Ralph D. Clark 
Middleburg, FL 



J&M's NewJFD-CP Disk Controller Speaks for Itself ! 




JFD-CP DISK CONTROLLER $149 



Our new JFD-CP has redefined the state-of-the-art 
for Color Computer users. Gold contacts and fully 
buffered I/O lines ensure maximum reliability, and 
the JFD-CP is plug compatible with both the 
original COCO and the COCO-2. 



MeWjDos 1.2 



JDOS implements all RS DOS commands, plus 
many more, including: 

• auto line numbering 

• error trapping 

• baud rate selection 

• OS/9* boot from floppy or hard drive 

• Memory Minderf— the most advanced disk drive 
analysis system on the market 

(Dysan diagnostic diskette not included) 

DRIVE 0 SYSTEM $289 

Upgrade your Color Computer by adding our new 
JFD-CP disk controller, supercharged JDOS 
operating system, and a top quality drive with case 
and power supply: AH for only $289! Comes 
complete with cable and manual. 

Drive 0 System with one single side drive $289 

Drive 0 System with one double side drive .... $359 
Drive 0,1 System with two single side drives . . . $429 
Drive 0, 1 System with two double side drives . . $499 



MEMORY MINDER + 

Memory Minder is a disk drive test program now 
included in JDOS. Used with a Dysan digital 
diagnostic disk, Memory Minder allows you to 
check your drives for speed, alignment, sensitivity, 
hysteresis, and more! You can actually align the 
drives while viewing the graphics on the screen. 
No special equipment needed! 

DIAGNOSTIC DISKETTES 

508-200: Tests single side disk drives $26 

508-400: Tests double side disk drives $33 

Memory Minder is available on diskette for those 
who don't own a JFD-CP Controller with JDOS. 
Includes Dysan diagnostic diskette. 

Single Side Memory Minder Package $79 

Double Side Memory Minder Package $99 

*OS/9 is a registered trademark of Microwave, Inc. 

fMemory Minder is a registered trademark of J&.M Systems, Inc. 

To order, call (505) 292-4182, or send payment with 
order to: 

<//A 

JAM SYSTEMS, LTD. 

15100-A CENTRAL SE 
ALBUQUERQUE, NEW MEXICO 87123 
505/292-4182 

We accept MasterCard and Visa 
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Educational Level for the Radio 
Shack® Color Computer 

CHILD WRITER 32/64K disk $54.95 

(network version 32/64K) $99.95 

CHILD FILER 32/64K disk $54.95 

(network version 32/64K $99.95 

CHILD CALC 32/64K disk $54.95 

(network version 32/64K) $99.95 

Elementary Level Series TBA 



MEMO WRITER 64K disk $64.95 

(network version 64K) $129.95 

LIST MANAGER 64K disk $64.95 

SIMPLE CALC 64K disk $64.95 

Home Use Level Series TBA 



BUSINESS WRITER $99.95 
64K disk 

BUSINESS MANAGER $99.95 
64K disk 

BUSINESS CALC 64K disk $99.95 

Business Level Series TBA 



PROOFREADER $34.95 

(20,000 words) 32/64K 
MASTER PROOFREADER $54.95 

(50,000 words) 64K 



75 ADDITIONAL 
EDUCATIONAL 
SOFTWARE TITLES 
AVAILABLE 




* LOCAL * IN * LOS * ANGELES * 



For All Your Projects 
We Have The Full Spectrum 
Of Software & Hardware 
Always At Good Prices! 



Hayes 300 Smart Modem — 


$175.00 


Amdek 300 A Monitor — 


$149.00 


DR 0 & 1 System - 


$319.95 


6809 CPU Chip - 


$ 17.95 


RSDOS 1.1 Disk - 


$ 22.95 


Extended Basic 1.1 — 


$ 22.95 


Gold Rom "Y" Cable — 


$ 22.95 



We Stock Amdek Amdisks! 

VIP Integrated Library @ . 10% 

DynaCalc (RSDOS) @ . 10% 

Data Pack II (The Best Term.) @ - 10% 

Business Software @ - 10% 

E.D.C. carries the most 
complete line of software 
and hardware in the market. 

Green Mountain Micro!! 

Computerware (All) 

Custom Software (No Disc.) 

Key Color Software (Key 264K) 

Michtron 

Tom Mix (All) 

Moreton Bay (More) 

Prickly Pear (Colorkit!) 

Platinum Software (!) 

Softlaw (VIP) 

Spectral Associates 

Speech Systems (All) 

Sugar Software & (Super) 

CoCoPro (V2) 

Computer Systems Center 

Cer-Comp 

Metric HJL Elephant 
Hayes Teac Star 
Interfaces Monitors Controllers 
Speech Music 

ALWAYS MORE AND B ETTER 
*232 Remote Plus* 

$24.95 + 2.50 S & H September issue. 




COLOR & MICRO COMPUTERS 

Software • Hardware • Support 
Educational • Small Business • Games 
VOICE (213) 254-6809 10 A.M.-10 P.M. 
BBS (213) 258-0640 24 HRS. 
300 and 1200 Baud 

Extended Hours+Call before coming. 
6130 YORK BOULEVARD 
POST OFFICE BOX 42718 
LOS ANGELES, CA. 90042 



The Corner Office* 



by Jeff DeTray, Publisher 



Magazines at Radio Shack 



When next you enter your friendly Radio Shack Computer Center, you may notice 
something new. Computer magazines! As a test, selected computer magazines 
will be on sale in the Computer Centers, beginning with the January issues. Among 
these will be HOT CoCo's parent publication, 80 Micro. The trial period is three months 
long, and for now, only magazines providing coverage of the Tandy 1000 are included. 

The fact that no Color Computer magazines are being tested may seem a bit disap- 
pointing, but consider this: After three months, Tandy will evaluate the magazine-in- 
the-stores project. If the results of the trial period are positve, the program may be 
expanded to include more Tandy-related computer magazines in a wider variety of Radio 
Shack stores. 

The publishers of Tandy computer support magazines have worked for years to gain 
access to the Radio Shack stores. Although we're bound to be a little prejudiced, we 
think everyone wins when the support magazines are available in the same stores that 
sell the computers. The magazines will demonstrate to prospective computer buyers 
that Tandy products are well supported by third parties, adding to their confidence in 
buying a Tandy computer. Advertisers will appreciate the opportunity to get closer to 
their best prospects, the new computer buyers. Publishers will sell more magazines. 
Tandy will discover that the magazines help to sell computers, in addition to becoming 
a tidy little profit center. 

No matter how you slice it, this is an important development in the evolution of the 
Tandy/Radio Shack computer industry. It's also long overdue. 80 Micro, for instance, has 
worked no less than five years to get into the Radio Shack stores. The three-month test 
program may be nothing more than a foot in the door, but it's a major welcome step 
forward by the folks from Fort Worth. 

The results of the test won't be available for some months. In the meantime, go to 
your nearest Computer Center and buy a magazine. 

Report from Riyadh 

Our Far-Flung Department was the recent recipient of a long and interesting letter from 
HOT CoCo reader Hank Calonkey, who resides in Riyadh, Saudi Arabia. Would you 
believe there is a Radio Shack Computer Center in Riyadh? It's nice to know you can 
find service for your CoCo anywhere you go. Hank returned briefly to the U.S. to buy 
his own CoCo in 1982, but he reports that Color Computers were then going for $2,500 
apiece in Riyadh. Ditto the LP-8 printer. I shudder to think what an IBM PC must have 
cost. 

Aside from his somewhat exotic locale, Hank's computing experiences have been 
rather typical. Like most of us, he's riding the learning curve all the time, improving his 
own knowledge of the CoCo, overcoming seemingly insurmountable obstacles, getting 
help from other computer owners, and generally enjoying his Color Computer a great 
deal. Thanks for the letter, Hank, and glad you like HOT CoCo. ■ 



HOT CoCo is a member of the CW Communications/lnc. group, the world's largest publisher of computer-related information. 
The group publishes 57 computer publications in more than 20 major countries. Nine million people read one or more of 
the group's publications each month. Members of the group include: Argentina's Computerworld/Argentina; Asia's The 
Asian Computerworld; Australia's Computerworld Australia, Australian PC World, Macworld and Directories; Brazil's 
DataNews and MicroMundo; China's China Computerworld; Denmark's Computerworld/Danmark, PC World and RUN 
(Commodore); Finland's Mikro; France's be Monde Informatique, Golden (Apple), OPC (IBM) and Distributique; Germany's 
Computerwoche, Microcomputerwelt, PC Welt, SoftwareMarkt, CW Edition/Seminar, Computer Business, RUN and Apple's; 
Italy's Computerworld Italia and PC Magazine; Japan's Computerworld Japan; Mexico's Computerworld/Mexico and 
CompuMundo; The Netherland's Computerworld Benelux and PC World Benelux; Norway's Computerworld Norge, PC 
World and RUN (Commodore); Saudi Arabia's Saudi Computerworld; Spain's Computerworld Espana, Microsistemas/PC 
World, Commodore World; Sweden's ComputerSweden, Mikrodatorn and Svenska PC; the UK's Computer Management, 
Computer News, PC Business World and Computer Business Europe; Venezuela's Computerworld Venezuela; the US's 
Computerworld, Hot CoCo, inCider, Infoworld, MacWorld, Micro Marketworld, PC World, RUN, 73, 80 Micro, Focus 
Publications and On Communications. 
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Tandy 200 24KS739 
ModeMOO 24KS510 



Color Computer II 
W/16K Basic $107.95 
w/64K Ext. Basic $179 







— ji 


1 


Tandy 1000 $710 


Tandy 1000 HD $1539 




Smith Corona L-1000 
$259 



Color Computer Disk Drive 
Drive 0 $ 239 Drive 1 $ 1 89 




DM P 105 $160 



BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 



COMPUTERS 

Tandy 10001 Drive 128K 
Tandy 1000 HD 10 Meg. 256K 
Tandy 1200 HD 10 Meg. 256K 
Model IVD 64K with Deskmate 
PRINTERS 

Radio Shack DWP-105 
Radio Shack DMP-130 
Radio Shack DMP-430 
Radio Shack CGP-220 
Radio Shack DWP-220 Daisy Wheel469.00 
Silver Reed EXP-550 Daisy Wheel 425.00 
StarSG-10 
StarSG-15 
Panasonic P-1 091 
CITOH Prowriter 851 0AP + NLQ 
Toshiba 1340 
Okidata 192 
Epson LX-80 
Epson FX-185 
MODEMS 

Radio Shack DCM-3 Modem 52.00 
Radio Shack DCM-5 Modem 99.00 
Radio Shack DC Modem 2212 315.00 



710.00 
1539.00 
1599.00 

889.00 

160.00 
269.00 
660.00 
359.00 



245.00 
410.00 
259.00 
345.00 
559.00 
375.00 
245.00 
369.00 



COLOR COMPUTER MISC. 

Radio Shack Drive Controller 139.00 
Extended Basic Rom Kit 39.95 
64K Ram Upgrade Kit 39.00 
Radio Shack Deluxe Keyboard Kit 24.95 
HJL Keyboard Upgrade Kit 79.95 
COCO Max Y Cable 27.95 
Botek Serial to Parallel Conv. 69.95 
Radio Shack CCR-81 Recorder 52.00 
Radio Shack Deluxe Joystick 26.95 
Amdek Color 300 Monitor 265.00 
Amdek Video 300 Green Monitor 139.00 
Amdek Video 300 Amber Monitor 149.00 
Taxan Color 220 Monitor 245.00 
Tatung DM-12VLG Green Monitor 139.00 
Tatung DM-12VLA Amber Monitor 149.00 
Radio Shack VM-2 Green Monitor 129.00 
Mark Data Universal Video Driver 29.95 
COLOR COMPUTER SOFTWARE 

TAPE DISK 

Approach Control Simul. 29.95 34.95 
Worlds Of Flight 29.95 32.95 

Mustang P-51 Flight Simul. 29.95 34.95 
Spectral Typing Tutor 19.95 22.95 
Dungeon Quest 24.95 27.95 



Major Istar 24.95 
Sam Slueth Private Eye 24.95 
Mark Data Graphic Adven. 24.95 
Graphicom (disk only) 
COCOMaxbyColorware 69.95 
Color ComE (rom) 49.95 

AutoTerm by PXE Computing39.95 
Key-264K by Key Color 39.95 
Telewriter 64 49.95 
Deft Pascal Workbench 
Deft Extra 

Pro Color File Enhanced 2.0 
Telegraphies by Derringer 



Elite Calc 
Elite Word 
Elite File (disk only) 
DynaCalc (disk only) 
Word Pack II by PBJ 
VIP Writer (tape & disk) 
VIP Integrated Library (disk) 



69.95 
69.95 



27.95 
27.95 
27.95 
29.95 
69.95 
49.95 
49.95 
44.95 
59.95 
89.95 
39.95 
59.95 
24.95 
69.95 
69.95 
74.50 
99.95 

134.95 
69.95 

149.95 



Order any 2 software pieces listed 
and take 10% off their listed price. 
All Radio Shack software 10% off list. 
Send for complete list. 



CALL TOLL FREE 
1-800-343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 



com 




P.O. Box 1094 
480 King Street 
Littleton, MA 01460 



SINCE 1973 



IN MASSACHUSETTS CALL (617) 486-3193 



TRS-80 is a registered trademark of Tandy Corp. 



Compare it with the rest. 
Then, buy the best. 



If you've been thinking about 
spending good money on a new 
keyboard for your Color Computer, 
why not get a good keyboard for 
your money? 

Designed from scratch, the 
HJL-57 Professional Keyboard 
is built to unlock ALL the 
potential performance of your 
Color Computer. Now, you can 
do real word processing and sail 
through lengthy listings.. .with 
maximum speed; minimum errors. 

At $79.95, the HJL-57 is reason- 
ably priced, but you can find 
other CoCo keyboards for a few 
dollars less. So, before you buy, 
we suggest that you compare. 

Compare Design. 

The ergonomically-superior 
HJL-57 has sculptured, low 
profile keycaps; and the three- 
color layout is identical to 
the original CoCo keyboard. 

Compare Construction. 

The HJL-57 has a rigidized 
aluminum baseplate for solid, 
no-flex mounting. Switch contacts 
are rated for 100 million cycles 
minimum, and covered by a spill- 
proof membrane. 



Compare Performance. 

Offering more than full-travel, 
bounce-proof keyswitches, the 
HJL-57 has RFI/EMI shielding that 
eliminates irritating noise on 
displays; and four user-definable 
function keys (one latchable), 
specially-positioned to avoid 
inadvertent actuation. 



Compare Installation. 

Carefully engineered for easy 
installation, the HJL-57 requires 
no soldering, drilling or gluing. 
Simply plug it in and drop it 
right on the original CoCo 
mounting posts. Kit includes a 



Free Function Key Program 

Your HJL-57 kit includes usage 
instructions and decimal codes 
produced by the function keys, 
plus a free sample program 
that defines the function 
keys as follows: F1 = Screen 
dump to printer. F2 = Repeat 
key (latching). F3 = Lower case 
upper case flip (if you have 
lower case capability). F4 = 
Control key; subtracts 64 from 
the ASCII value of any key 
pressed. Runs on disc or tape; 
extended or standard Basic. 



Ordering Information: Specify model (Original, F-version, or CoCo 2). Payment by C.O.D., check, 
MasterCard or Visa . Credit card customers include complete card number and expiration date. Add 
$2.00 for shipping ($3.50 for Canada). New York state residents add 7 % sales tax. 
Dealer inquiries invited. 



new bezel for a totally finished 
conversion. 

Compare Warranties. 

The HJL-57 is built so well, it 
carries a full, one-year warranty. 
And, it is sold with an exclusive 
15-day money-back guarantee. 

Compare Value. 

You know that a bargain is a 
bargain only so long as it lasts. 
If you shop carefully, we think 
you will agree.. .The HJL-57 is 
the last keyboard your CoCo will 
ever need. And that's real value. 

Order Today. 

Only $79.95, the HJL-57 is 
available for immediate shipment 
for either the original Color 
Computer (sold prior to October, 
1982) or the F-version and TDP-100 
(introduced in October, 1982), 
and the new 64K CoCo. flow also 
available for CoCo 2. 

call Toll Free 
1-800-828-6968 

In New York 1-800-462-4891 

mmmm 

PRODUCTS 

Dlv. of Touchstone Technology Inc. 
955 Buffalo Road • P.O. Box 24954 
Rochester, New York 14624 

Telephone: (716)235-8358 



